program kupu-kupu

3 : begin

Write (‘Deret Segitiga’) ;

write (‘masukkan n = ‘) ;

    readln (n) ;

   for i := n down to 1 do

   begin

   for j :=1 to I do

   begin

   write (j :3) ;

   end ;

   writeln ;

   end;

   writeln;

   end;

   read;

   end;

   for I := 1 to n do

   begin

   for j:= 2 to i do

   begin

   write (j:3);

   end;

   writeln;

   end;

   readln;

   end;

   end;

   end.