Cod sursa(job #129391)

Utilizator Myha3Lacazacu mihaela Myha3La Data 29 ianuarie 2008 11:53:34
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var f,g:text;   
    i,t,p,b:longint;   
begin  
assign(f,'fructe.in');reset(f);   
assign(g,'fructe.out');rewrite(g);   
readln(f,t);   
for i:=1 to t do  
begin  
     readln(f,b,p);   
     if b mod 2=1 then writeln(g,'0')   
     else writeln(g,'1');   
end;   
 close(f);close(g);   
 end.