Cod sursa(job #160187)
| Utilizator |  Stefan Gheorghe ghitza_2000 |
Data | 14 martie 2008 20:28:32 |
|---|---|---|---|
| Problema | Patrate2 | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.25 kb |
var n,i,p1,p3,p:longint;
f,g:text;
begin
assign(f,'patrate2.in'); reset(f);
readln(f,n); close(f);
p1:=1; p:=1;
for i:=2 to n do
p1:=p1*i;
for i:=1 to n*n do
p:=p*2;
p3:=p*p1;
assign(g,'patrate2.out'); rewrite(g);
writeln(g,p3);
close(g);
end.