Даны два целых числа a и в. выведите все числа от a до b включительно, в порядке возрастания, если a < b, или в порядке убывания в противном случае

Var a,b,i:longint;
begin
read(a,b);
if b>=a then
for i:=a to b do
write(i,' ') else
for i:=a downto b do
write(i,' ');
end.