11 класс - 1. распечатать все целые числа, делящиеся на 7 из интервала [1000; 2000]

Var i:integer;
begin
for i:=1000 to 2000 do
 if i mod 7 = 0 then write(i,' ');
writeln;
end.

Результат (не весь, а только начало и конец):
1001 1008 1015 ... 1981 1988 1995