Відповідь:
55 по идеи
Пояснення:
procedure IN1(var a,b:real;n:integer;var y:real);
var
p:real;
i:integer;
begin
y:=1;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y:=p*y;
end;
end;
procedure IN2(var a, b:real; n:integer; var y1:real);
var
p:real;
i:integer;
begin
y1:=0;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y1:=y1+p;
end;
end;
begin
write(' Введите a, b,n');
readln(a,b,n);
IN1(a,b,n,y2);
writeln('p1 ',y2:10:2);
writeln(' Введите c, b,m');
read(a,b,n);
IN2(a,b,n,y3);
writeln('s ',y3:10:2);
write(' Введите e, f,L');
readln(a,b,n);
IN1(a,b,n,y5);
writeln('p2 ',y5:10:2);
y6:=(y2+y3)/y5;
writeln(y6:8:3); end
наверное 55,если не ошибся