Cod sursa(job #191432)
Utilizator | Data | 26 mai 2008 18:31:19 | |
---|---|---|---|
Problema | Nunta | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.63 kb |
var n:integer;
procedure citire;
begin
assign(input,'nunta.in');
reset(input);
read(input,n);
close(input)
end;
procedure gasiresiafisare;
begin
if n mod 2=0 then begin
n:=1+n
end
else begin
n:=n
end;
assign(output,'nunta.out');
rewrite(output);
write(output,n);
close(output)
end;
begin
citire;
gasiresiafisare;
end.