Program Cetak Angka Menurun

berikut ini adalah source codenya :

uses wincrt;

var

   x,y,n:integer;

   lagi:char;

begin

   repeat

   clrscr;

   write('Masukkan batas angka : '); readln(n);

   writeln;

   for x:=n downto 1 do

   begin

      for y:=x downto 1 do

      write(x);

      end;

   writeln;writeln;

   write('Lagi ......[Y/T]');lagi:=upcase(readkey);

   writeln(lagi);

   until lagi <> 'Y';

end.