program count1;
uses crt;

{--------------------------------------------------------------------------

This program will ask the user for 2 numbers, and then count one by one from
the first number to the second.
                        by 

--------------------------------------------------------------------------}


VAR x,y,z:integer;

begin

clrscr;
write ('Hello! Type in a number. --->  ');
readln (x);
writeln;
write ('Very good. Now type another number, larger than the first --->  ');
readln (y);
writeln;
writeln;
textcolor (green);

if x <= y then for z := x to y do writeln (z)
else
for z := x downto y do writeln (z);
readln;

end.