Turbo pascal bikin setengah segitiga pakai for..to..do

biasanya sih buat yang belajar turbo pascal banyak dikasih tugas macam"
misalnya saja turbo pascal bikin setengah segitiga memakai perintah ( for..to..do )

setengah segi tiga
 scriptnya :

  uses wincrt;
  var  x,y : integer;
  begin
     for x:=1 to 5 do
      begin
         for y:=1 to x do
           begin
            write(y);           
           end;
            writeln;
       end;
    end.

yang laen nih setengah segi tiga kebalik^^
  scriptnya :

uses wincrt;
var    x , y :integer;
begin
    for x:=1 to 5 do
     begin
        for y:=5 downto x do
          begin
           write(y);           
          end;
           writeln;
      end;
end.
 
 semoga bermanfaat^^