Cod sursa(job #194770)

Utilizator ProtomanAndrei Purice Protoman Data 13 iunie 2008 21:45:29
Problema Oras Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var f1,f2:text;
    i,n:longint;
begin
        assign(f1,'oras.in');
        reset(f1);
        assign(f2,'oras.out');
        rewrite(f2);
        read(f1,n);
        if n mod 2=0 then
                for i:=1 to maxlongint-n-1 do
                        inc(n);
        close(f1);
        close(f2);
end.