Пожалуйсто нарисуйте маленькую блок-схему

[k3na4]

procedure mas(var a:arr);
var i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j] := cos(exp((i+j)*ln(2))) + 1/exp(i+j);
i:=1;
while i<=5 do
begin j:=1;
while j<=5 do
begin
write(' a[',i,j,']=',a[i,j]:5:3);
j:=j+1;
end;
i:=i+1;
writeln;
end;
end;