Cod sursa(job #115551)

Utilizator borsosborsos adrian borsos Data 16 decembrie 2007 12:57:21
Problema Nunta Scor 10
Compilator fpc Status done
Runda preONI 2008, Runda 2, Clasa a 9-a Marime 0.24 kb
var f,g:text;
i,j,nr,n:longint;
aux:char;
a:array[1..10000] of char;
begin
assign(f,'nunta.in'); reset(f);
assign(g,'nunta.out'); rewrite(g);
readln(f,n);
if n mod 2 = 1 then writeln(g,n) else writeln(g,n+1);
close(f);
close(g);
end.