Program Segitiga Pascal

Berikut adalah Source Code untuk membuat Segitiga dalam Pascal :

uses wincrt;
var i,j,n,z : integer;
function sgtg(baris,posisi:integer):longint;
var output:integer;
begin
   if(posisi= 1) or (posisi =baris)  then
   begin
      sgtg:= 1;
   end
   else
      sgtg:= Sgtg(baris-1,posisi)+ Sgtg(baris-1,posisi-1);
end;
begin
   write (' Masukan Tingkat ==> ');readln(z);
   writeln;
   for i:=1 to z do
   begin
      for n:=z downto i do
      write(' ');
      for j:=1 to i do
      write(sgtg(i,j):2);
      writeln;
      writeln;
   end;
   readln;
end.

Hasil Keluaran :