Cod sursa(job #22973)

Utilizator radu_voroneanuVoroneanu Radu Stefan radu_voroneanu Data 27 februarie 2007 21:21:11
Problema Patrate2 Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.2 kb
Raporteaza aceasta sursa 
var f,g:text;
    q:qword;
    n:longint;
begin
 assign(f,'patrate2.in'); reset(f);
 assign(g,'patrate2.out'); rewrite(g);
 read(f,n);
 q:=(1 shl (n*n))*n;
 writeln(g,q);
 close(f); close(g);
end.