1)
program p1;
var a,k,n,i,s:longint;
begin
k:=0;
n:=1;
s:=0;
for i:=1 to 8 do
begin
read(a);
s:=s+a;
if a>0
then n:=n*a
else k:=k+1;
end;
writeln('Summa:',s,' Proizvedenie: ',n,' Kolichestvo: ',k);
readln;
readln
end.
2)
program p2;
var n,i:longint;
s:real;
begin
write('Write n: ');readln(n);
s:=5;
for i:=6 to n do
s:=s+i-0.5+i;
writeln(s:0:1);
readln
end.
3)
program p3;var n,i,s:longint;
begin
write('Write n: ');readln(n);
s:=2;
for i:=2 to n do
s:=s*i*2;
writeln(s);
readln
end.