Решите пожалуйста задачку по информатике. Натуральные числа a,b,n заданы юзером.

var a,b,n,i:integer;

begin

write('Введите a,b,n: ');

readln(a,b,n);

repeat

write(a,'  ');

a:=a+n

until agt;b

end.

либо

var a,b,n,i:integer;

begin

write('Введите a,b,n: ');

readln(a,b,n);

while alt;=b do

begin

write(a,'  ');

a:=a+n

end

end.

var a,b,n:integer;

Begin

 write('Введите начало промежутка (a): '); readln(a);

 write('Введите конец промежутка (b): '); readln(b);

 write('Введите шаг (n): '); readln(n);

 a := a - n;

 while (true) do Begin

   a := a + n;

   write(''+a);

   if(a gt;= b) then break;

   write(',');

 End;

End.