Cod sursa(job #240336)
Utilizator | Data | 7 ianuarie 2009 11:52:11 | |
---|---|---|---|
Problema | Sarpe | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.17 kb |
program sarpe;
var f,g:text;
n:longint;
begin
assign(f,'sarpe.in');reset(f);
assign(g,'sarpe.out');rewrite(g);
read(f,n);
write(g,4*n);
close(f);
close(g);
end.