Как составить алгоритм зная программу в Pascal?

Программа:
program mas;

var
v : array [1..10] of real;
g : integer;
begin
for g := 1 to 10 do
v[g ] := tan(g);

for g := 1 to 10 do begin
if (v[ g ] > 0) then begin
Writeln(i,'-th element of the array is positive and equals ',v[ g ]);
end;
end.