program raf105;
var
i,a,b: integer;
begin
write('Введите 2 числа (начало и конец диапазона): ');
readln(a,b);
for i:=a to b do
writeln(i);
end.
program raf105;
var
i,a,b: integer;
begin
write('Введите 2 числа (начало и конец диапазона): ');
readln(a,b);
for i:=a to b do
writeln(i);
end.
PascalABC 3.4.2