Program w pascalu

Program w pascalu

Witam potrzebuje wiedzieć na jakiej zasadzie powstaje trójkąt sierpińskiego, mam działający kod ale musze wiedzieć do czego służa te konkretne zmienne i cyfry z góry dziękuje.

Program Trojkat_Sierpinskiego;
uses graph;
var n,k:integer;
begin
n:=detect; initGraph(n,k,'');
for n:=0 to 255 do
for k:=0 to 255-n do
if (n and k)=0 then putPixel(320+n-k,n+k,white);
readLn; closeGraph;
end.