Cod sursa(job #240712)

Utilizator madutzaAnton Madalina madutza Data 8 ianuarie 2009 12:31:08
Problema Sarpe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
Raporteaza aceasta sursa 
program sarpe;
var f,g:text;
    x,n:longint;
begin
assign(f,'sarpe.in');
assign(g,'sarpe.out');
reset(f);
rewrite(g);
read(f,n);
x:=2*2*2;
if(n=2)then write(g,x)else
write(g,x*n);
close(f);
close(g);
end.