Для приведенной ниже числовой последовательности написать программу…

Program gt; var p: real; a,b,w: integer; begina: =-1; b: =1; w: =-1; while a <= 103 dobegina: =a+2; b: =b+2; w: =w*-1; p: =p+1/a*b*w; end; writeln (p); end.2) program gt; var p: real; a,b,w: integer; begina: =-1; b: =1; w: =-1; p: =0; while a <= 103 dobegina: =a+2; b: =b+2; w: =w*-1; p: =p+(1/ (a*b)*w; end; writeln (p); end.1-первый случай 2-второй случай