program dlb;
var
i,n : integer;
a,y : real;
begin
readln(a,n);
y:= 1;
for i := 1 to n do
y := y * a;
writeln(y);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program dlb;
var
i,n : integer;
a,y : real;
begin
readln(a,n);
y:= 1;
for i := 1 to n do
y := y * a;
writeln(y);
end.