Язык Раскаль Дано неотрицательное число N - количество элементов массива (N<=100). Напишите программу, которая заполняет массив из N элементов первыми натуральными трехзначными числами, произведение цифр которых есть трехзначное число. Выведите заполненный массив на экран в одну строку, отделяя элементы друг от друга одним пробелом. PascalABC

var N, i, z: integer;

var d: array of integer; // объявляем массив

var a: integer := 100; // первое трехзначное натуральное число 100

begin

writeln('Введите N (N <= 100)');

readln(N); // вводим длину массива

d := new integer[N]; // выделяем память под массив

while (i < N) do begin

z := (a div 100)*(a mod 10)*((a div 10) mod 10);

if ((z > 99) AND (z < 1000)) then begin

d[i] := a; // заносим число в массив

i += 1; // увеличиваем счетчик на 1

end;

a += 1; // увеличиваем число на 1

end;

for var j := 0 to N-1 do write(d[j], ' '); // выводим данные массива

end.