Program gg;var a,b,c:real;
begin a:=(1+1/4)/(1+1/2); b:=(6.8*0.04*1.65)/(3.3*5.1*0.16); c:=((3+1/2+1+4/5)*3/5-1.18)/((8+1/8)*(2/13)+(1+1/3)/(1+7/9));end.
Function power (a:real; n:longint):real;
var
i:longint;
p:real;
begin
if n=0 then power:=0
else begin
p:=a;
for i:=2 to n do p:=p*a;
power:=p
end
end;
var
a:real;
n:integer;
begin
Write('Введите основание и показатель степени: ');
Read(a,n);
Writeln('Результат: ',power(a,n))
end.
<u>Пример</u>
Введите основание и показатель степени: 13.64 6
Результат: 6440005.25769131