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

Question

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

---

Answer 1

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