Cod sursa(job #160416)

Utilizator SILVER_BOY22Dalalau Alexandru SILVER_BOY22 Data 15 martie 2008 15:54:34
Problema Pairs Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
program sume;
var n,i,p:longint;
    f,g:text;
begin
     assign(f,'sume.in');
     assign(g,'sume.out');
     rewrite(g);
     reset(f);
     read(f,n);
     for i:=1 to n do
        read(f,p);
     write(g,'-1');
     close(g);
end.