Segitiga Pascal

Program Segitiga_Pascal;
uses crt;
var a,b,d,e,f,g,h,i:longint;
Procedure Fakt(var a,c:longint);
begin
c:=1;
for b:=2 to a do begin c:=c*b; end;
end;
begin clrscr;
write('berapa pangkat terbesar? ');readln(a);writeln;
if a<0 then
writeln('Maaf?! Program ini dirancang untuk pangkat tak negatif') else
if a<=12 then
for d:= 0 to a do begin
for e:= 0 to d do begin
f:=d-e;
fakt(d,g); fakt(e,h); fakt(f,i);
write(g/(h*i):5:0);end;writeln;writeln;end
else begin
writeln('Maaf untuk pangkat >= 13 belum kami temukan programnya');
writeln('Mohon sumbangkan pemikiran anda ke situs kami: rypro.blogspot.com');
writeln('Terima Kasih');
end;readln end.

Posted in: Pascal