Algoritma segitiga pascal (tugas TIK 2)

Nih ane beritahu algoritma segitiga pascal

uses crt;

var

i,j,k,l,m,n:integer;

begin

readln(n);

for i:=1 to n do

begin

for j := n-1 downto i do

    begin

    write(' ');

    end;

    for k:=1 to i do

        begin

        write(k);

        end;

    writeln;

   end;

   for l:=1 to n do

   begin

   gotoxy(k+1,l+1);

           begin

        for m:=l-1 downto 1 do

            begin

            write(m)

            end;

    end;

    writeln;

    end;

end.

selain dibaca dipelajari juga ya..... ^_^