Question

Вывести на экране все числа от A до B

Answer 1

var a,b,i:integer;
begin
writeln ('Введите числа a и b ');
readln(a,b);
for i:=a to b do writeln(i);
readln;
end.