Решите по информатике. натуральные числа a,b,n заданы пользователем. вывести на экран числа отрезка a,b с шагом n. пример: 2,20,3 2,5,8,11,14,17,20

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 >= b) then break;

   write(',');

 End;

End.

var a,b,n,i:integer;

begin

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

readln(a,b,n);

repeat

write(a,'  ');

a:=a+n

until a>b

end.

или

var a,b,n,i:integer;

begin

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

readln(a,b,n);

while a<=b do

begin

write(a,'  ');

a:=a+n

end

end.