Дано вещественное число А и целое число N (>O) используя один цикл найти сумму. 1+ А +…

program dl9_meru3; var a,s: real; n,i: integerbeginwriteln ('Vvedit A i N (>0) '); readln (a,n); s: =0; a: =a+1; for i: =2 to n dobegin s: =s+a; a: =a*a; end; writeln ('suma=',s); readlnend.