Cod sursa(job #174659)
Utilizator | Data | 9 aprilie 2008 08:45:37 | |
---|---|---|---|
Problema | Sarpe | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.2 kb |
var f,g:text;
n,x:longint;
begin
assign(f,'sarpe.in');reset(f);
assign(g,'sarpe.out');rewrite(g);
read(f,n);
x:=4*n;
if(n=1)then x:=1;
if(n=2)then x:=8;
write(g,x);
close(f);
close(g);
end.