Question

Составить задачу по информатике в паскаль abc с командой "while"
1.Вывести все числа от a до b, но заранее не известно, аb

Answer 1

var a,b:integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
while a<>b do
begin
writeln(a);
a:=a+1;
end;
writeln(b);
end.