Вывести ** экран все числа делящиеся ** 3 или ** 7 в промежутке от 1 до 1000

Question

Вывести на экран все числа делящиеся на 3 или на 7 в промежутке от 1 до 1000

Answer 1

var i:integer;

begin

for i:=1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.