program na;
var a: Text; c:string; b:real;
begin
assign(a,'C:1.txt');
reset(a);
read(a,c);
close(a);
assign(a,'C:11.txt');
rewrite(a);
b:=StrToInt(c)**5;
write(a,b);
close(a)
end.
program na;
var a: Text; c:string; b:real;
begin
assign(a,'C:1.txt');
reset(a);
read(a,c);
close(a);
assign(a,'C:11.txt');
rewrite(a);
b:=StrToInt(c)**5;
write(a,b);
close(a)
end.