блок-схема

[Olgaandsasha]

помогите составить блок-схему
Program olga;
var
X: array [1..30] of Integer;
Y: array [1..30] of Real;
Z: array [1..60] of Real;
i, n: Integer;
sum: real;
begin
randomize;
write('X:');
for i:=1 to 30 do
begin
X[i]:=10+random(41);
write(X[i]:7);
end;
writeln;
writeln('Y:');
for i:=1 to 30 do begin
Y[i]:=sqr(abs(X[i]));
write(Y[i]:7:2);
end;
n:=0;
for i:=1 to 30 do
if X[i]>0 then
begin
n:=n+1;
Z[n]:=X[i];
end;
for i:=1 to 30 do
if Y[i]>0 then
begin
n:=n+1;
Z[n]:=Y[i];
end;
writeln;
writeln('Z:');
sum:=0;
for i:=1 to n do
if (Z[i] mod 3=0) or (Z[i] mod 5=0) then
sum:=sum+Z[i];

for i:=1 to n do
write(Z[i]:7:2);

readln;
end.

[IT-man]

Вроде так )))

[Olgaandsasha]

спасибо)))