помогите составить блок-схему массива.ниже показана программка:program preved;uses

Помогите составить блок-схему массива.ниже показана программка:
program preved;
uses crt;
var
i:integer;
d:array[1..100]of integer;
begin
for i:=1 to 100 do
begin
d[i]:=i*i;
write('d[i]',d[i]);
end;
readkey;
end.
напишите какой формы блок и что в нем писать!!!