Question

Даны два целых числа A и B (при этом A≤B). Выведите все числа от A до B включительно. Язык Pasckal ABC

Answer 1

var  

a,b,i:integer;

begin

 readln(a,b);

 if a<=b then

 for i:=a to b do

   write(i:4)

     else

       for i:=b to a do

         write(i:4)

end.