помогите пожалуйста с блок-схемой
program xz;
const
x:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);
y:array[1..15] of integer=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
var
i:integer;
s1,s2:real;
BEGIN
s1:=0; s2:=0;
for i:=1 to 10 do s1:=s1+sqr(sin(x[i]));
for i:=1 to 15 do s2:=s2+sqr(ln(abs(y[i])));
writeln(s1*s2)
END.