Вот держите !!!!!!!!!!!!!!!!//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!beginvar n:=readinteger('n=');var (a,b):=(3,2); var p:=0.0;for var i:=1 to n dobegin p:=p+a/b;a:=a*3; b:=sqr(b);end;Writeln('Сумма=',p);end.