Cod sursa(job #589503)

Utilizator santa_vasilesanta vasile santa_vasile Data 12 mai 2011 17:44:56
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
program fructe;
var i,n,b,p: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
 read(fin,b,p);
if(b mod 2=1)then
  write(fout,1)
  else
  write(fout,0);
end.