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

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.