Написать программу в Паскале . Программку вывода на экран всех чисел

program zz1;

var i:integer; // задаем переменную цикла целого типа

begin

for i:=1 to 1000 do // организуем цикл, в котором переберем все числа от единицы до тыщи

begin

if (i mod 3 = 0) and (i mod 5 = 0) // проверяем условие, если еще одно число делится на три без остатка и сразу делится на 5 без остатка, то

then write(  , i); // выводим ответ в строчку через пробел

end;

end.