PROGRAM TestFunc;
USES crt;
VAR
    i, x, y: integer;



BEGIN
     clrscr;
     Writeln('Enter in 2 integers, the first integer greater than the second.');
     Readln(x,y);
     FOR i:= x DOWNTO 0 DO Writeln('x  = ',x, 'and i = ', i);
     Readln;

     FOR i:= x TO 20 DO Writeln('x  = ',x, 'and i = ', i);
     Readln;

     FOR i:= x DOWNTO 0 DO
     BEGIN
           Writeln('Loop 3 starts');
           Write('x  = ',x:3,'and i = ', i);
           Writeln;
     END; {for}

     Readln;

     FOR i:= x DOWNTO y DO
     BEGIN
           Writeln('Loop 4 starts');
           Write('x  = ',x:3,'and i = ', i);
           Writeln; Readln;
     END; {for}



     Readln;

END.