Turbo Pascal +sito Erastotenesa

[WzQ]

Słuchajcie mam taki program:

 

program Sito;

uses crt;

const max=900;

var l,n:longInt;

t:array[1..max] of byte;

begin

clrscr;

for n:=1 to max do t[n]:=0;

for l:=2 to round(sqrt(max)) do

if t[l]=0 then for n:=2 to max div l do t[l*n]:=1;

for n:=2 to max do if t[n]=0 then write(n:5);

readln;

end.

 

Jednak za cholerę nie rozumiem o co w nim chodzi, czy ktoś z was mógłby mi jakoś wyjaśnić o co mniej więcej chodzi ? Tzn. za co odpowiada każda linijka ? Samo Sito rozumiem, jednak w języku Pascala już nie za bardzo... Z góry wielkie dzięki...