Вывести ** экран все целые числа от 100 до 200 кратные 7. Если что это Паскаль

Question

Вывести на экран все целые числа от 100 до 200 кратные 7.
Если что это Паскаль

Answer 1

Program n1;
var i: integer;
begin
for i:=100 to 200 do if i mod 7=0
then write(i,' ');
end.