For3. даны два целых числа а и в (а

Var a, b: integer;
begin
write('Введите a, b>>');
read(a, b);
if a<b then
begin
while (b-1>a) do
begin
b:=b-1;
write (b, ' ');
end;
end
else write('Неверные условия')
end.