Написать программу( в Free Pascal) выевляющую все числа, которые делятся на 7 без остатка. от 1 до 1000! ПОМОГИТЕ ПОЖАЛУЙСТА!!!! МНЕ ЭТО НА ЗАВТРА НАДО

Var i:integer;
begin
 for i:=1 to 1000 do
 if i mod 7=0 then writeln(i);
 readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.