Cod sursa(job #589509)

Utilizator santa_vasilesanta vasile santa_vasile Data 12 mai 2011 17:52:02
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
program fructe;
var i,n,b,p,x,y:longint;
    fin,fout:text;
begin
assign(fin,'fructe.in'); reset(fin);
assign(fout,'fructe.out'); rewrite(fout);
read(fin,n);
for i:=1 to n do
begin
 read(fin,x,y);
 b:=b+y;
 p:=p+x;
end;
if(b mod 2=1)then
  begin
  writeln(fout,1);
  end
  else
  begin
  writeln(fout,0);
  end;
  close(fin);
  close(fout);
end.