Question

Решите через repeat пожалуйста

Answer 1

var a, b, h: integer;
begin
  read(a, b, h);
  repeat
    write(a, ' ');
    a := a + h;
  until a > b;
end.