составить 2 программы на Free Pascal по готовой блок схеме

[sanka777]

Помогите пожалуйста составить 2 программы на Free Pascal по готовой блок схеме, а то до экзамена не допустят(

[Mad_Cat]

1)

s:=0;
k:=6;
n:=7;
For j:=1 to k
for i:=1 to n do
s:=s+(i+1)*(j+2);
writeln(s);

2)

s1:=0;s2:=0;n:=12;
for k:=1 to n do
if k mod 2 =0 then s1:=s1+1/(2*k+1)
else s2:=s2-1/(2*k+1);
s:=s1+s2;
writeln(s);

[sanka777]

мне бы полную прям программу, а не код(

[Mad_Cat]

мне бы полную прям программу

<--контакты в профиле
Welcome!!!