Cod sursa(job #271791)
| Utilizator |  Glodeanu Ioan Daniel DanielG |
Data | 5 martie 2009 22:32:05 |
|---|---|---|---|
| Problema | Patrate2 | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.21 kb |
var f:text;
n:byte; i:longint; p:int64;
begin
assign(f,'patrate2.in');reset(f);
readln(f,n);
close(f);
p:=2;
for i:=2 to n*n do
p:=p*2;
assign(f,'patrate2.out');rewrite(f);
writeln(f,p*n);
close(f);
end.