latihan

program segitigaPascal;
uses crt;

procedure pascal(...: shortint);
...
begin
  for ... := 0 to ...-1 do begin
        ....
    for j := 0 to i do begin
            write(c, ' ');
            ....
        end;
  end;
end;

var n: ...;
begin
  write('Masukkan jumlah baris segitiga pascal: '); readln(n);
  pascal(n);
    readkey;
end.