Cod sursa(job #307153)

Utilizator costyv87Vlad Costin costyv87 Data 23 aprilie 2009 13:24:58
Problema Patrate2 Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.2 kb
Raporteaza aceasta sursa 
var n,p,i:longint;
    f,g:text;
begin
assign(f,'patrate2.in'); reset(f);
assign(g,'patrate2.out'); rewrite(g);
read(f,n);
p:=1 shl sqr(n);
for i:=1 to n do p:=p*i;
write(g,p);
close(g);
end.