Задание 2 Тема: Ряды (циклы, итерации)

Var a: real; i,p,i1,i2,e: longint; begini1: =1; i2: =3; read (e); for i: =1 to 20 dobegina: =a+1/ (i1*i2); inc (p); i1: =i1+2; i2: =i2+2; end; writeln ('Сумма ряда ', a: 2: e); writeln ('Кол-во итераций ',p); end.