Question

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

Answer 1

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.