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

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