Cod sursa(job #68249)

Utilizator radu_voroneanuVoroneanu Radu Stefan radu_voroneanu Data 27 iunie 2007 11:57:00
Problema Sarpe Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
var n:longint;
    f,g:text;
begin
 assign(f,'sarpe.in'); reset(f);
 assign(g,'sarpe.out'); rewrite(g);
 read(f,n);
 if n=1 then
  writeln(g,n)
 else
  writeln(g,n shl 2+2*(n-1)*(n-2));
 close(g); close(f);
end.