program segitiga pascal .

[ini program yg segitiga pascal]

program segpascal;
uses crt;
type A=array[1..20,1..20] of longint;

var
AA:A;
i,j,n:integer;

begin
clrscr;
AA[1,1]:=1;
write('banyak looping : ');readln(n);
for i:=1 to n do
begin
AA[i,1]:=1;
AA[i,i]:=1;
for j:=2 to i-1 do
AA[i,j]:=AA[i-1,j-1]+AA[i-1,j];
end;
for i:=1 to n do
begin
for j:=1 to i do
write(AA[i,j],' ');
writeln;
end;
readln;
end.