program produs;
uses crt;
var i,n:integer;p:real;

procedure calcul;
begin
for i:=2 to n do
p:=p*(1-1/(i*i));
end;


{Da este posibil sa inlocium procedura printr-o singura linie
pentru ca se prelucreaza produsul de numere si avem p:=(n+1)/2*n}

begin
clrscr;
writeln('Introduceti numarul n:');readln(n);p:=1;
calcul;
writeln;
writeln('Solutia este:');
write(p);
writeln;
writeln('*************************');
p:= 1;
p:=(n+1)/(2*n);
writeln;
writeln('Solutia este:');
write(p);


end.