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.
