比赛代码 - COGS

比赛	20140711B班小测	评测结果	AWWWWWWWWWWWWW
题目名称	残酷的数学老师	最终得分	7
用户昵称	长江农夫	运行时间	0.058 s
代码语言	Pascal	内存使用	0.14 MiB
提交时间	2014-07-11 15:53:02

显示代码纯文本

program cruel1;
var
N,P:longint;
a:longint;
i:longint;
b:longint;
begin
assign(input,'cruel1.in');
assign(output,'cruel1.out');
reset(input);
rewrite(output);
readln(N,P);
b:=N;
for i:=1 to P-1 do begin
a:=N*b;
N:=N*b;
end;
write(a);
close(input);
close(output);
end.