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

program zz1;

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

begin

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

begin

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

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

end;

end.