Question

с помощью цикла for вычислить и вывести на экран все остатки от деления на 5 от 20 до 30

Answer 1

Var x,i: integer;
begin
  for i:=20 to 30 do
   begin   x:=i mod 5;
   writeln(x);
   end;
end.