Информатика

Алигусейн

24 сентября, 19:54

Почему выводится ноль в программе?

program pr1;

var a: real;

n: longint;

function power (a:real; n:longint) : real;

begin

var i: integer;

var anew: real;

anew:=a;

for i: = 2 to n do

begin

a:=a*anew;

end;

end;

begin

readln (a, n) ;

writeln (power (a, n)) ;

end.