Source Code * Pascal

sob nih source code tugas pascal ...
udah aku coba sukses...

uses wincrt;

var i,j:byte;

begin
     for i:=1 to 3 do
         begin
              for j:= 1 to i do
              write('*');
              writeln;
         end;
     for i:=2 downto 1 do
         begin
              for j:= i downto 1 do
              write('*');
              writeln;
         end;
end.