Contoh For Bersarang Dengan Pascal

uses crt;

var i,y, x :byte;

begin

clrscr;

writeln('================================================================');

writeln('||                                 for bersarang                             ||');

writeln('================================================================');

x:=9;

     for i:=9 downto 1 do

     begin

     write(' ':x);

     for y:=9 downto i do

     write('*' :2);

     writeln;

     x:=x-1;

     end;

      x:=2;

      for i:= 1 to 8 do

      begin

      write(' ':x);

      for y:=8 downto i do

      write('*':2);

      writeln;

      x:=x+1;

      end;

writeln('================================================================');

readln;

end.

Hasil  :