Cod sursa(job #307258)

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