Question

составить программу вывода на экран всех чисел от 100 до 200 делящихся на 3

Answer 1

var i: integer;

begin

for i:=100 to 200 do

if i mod 3 = 0 then writeln(i);

end.