Задача в С++.P=(1-1/2^2)(1-1/3^2)...(1-1/n^2),n>1.

Program schet; var a: integer; label h; begin h: begin writeln('введите количество палочек: '); readln(a); if (a< =0) then goto h  else a: =a+3; writeln('у тани стало ', a, ' палочек'); end; readln; end.program schet; var a,b: integer; begina: =2015; writeln('сколько лет проводится олимпиада? '); readln(b); a: =a-b; writeln('первая олимпиада была проведена в ',a,' году.'); readln; end.program schet; var a,b,c,i: integer; beginwriteln('сколько семечек посадил пятачок? '); readln(a); writeln('сколько семечек не выросло? '); readln(b); a: =a-b; writeln('сколько не плодоносных яблонь? '); readln(c); a: =a-c; writeln('на скольки яблонях вкусные яблоки? '); readln(i); a: =a-i; if (a< 0) then writeln('выросло 0 яблонь с невкусными яблоками.')else writeln('выросло ',a,' яблонь с невкусными яблоками.'); readln; end.program schet; var a: real; beginwriteln('введите число, которое нужно округлить: '); readln(a); a: =round(a); writeln('ответ после округления: ',a); readln; end.