func_pangkat

program m8c2;
uses wincrt;
function pangkati (x: real; y:integer): real;
var
pangkat : real;
i : integer;
begin
pangkat := 1;
for i := 1 to y do;
pangkat := pangkat * x;
pangkati := pangkat;
end;
var
a : real;
b: integer;
begin
write ('nilai yang akan dipangkatkan? ');
readln (a);
write ('dipangkatkan dengan: ');
readln (b);
writeln (a:6:1, ' pangkat ',b, ' adalah ', pangkati(a,b):6:1);
end.