Cod sursa(job #155207)

Utilizator SILVER_BOY22Dalalau Alexandru SILVER_BOY22 Data 11 martie 2008 20:05:00
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
var f,g:text;
    n,p,b,i:longint;
begin
     assign(f,'fructe.in');
     assign(g,'fructe.out');
     reset(f);
     rewrite(g);
{-rezolvarea problemei------------------------------}
     read(f,n);
     for i:=1 to n do
     begin
          readln(f,p,b);
          if p=b then writeln(g,'1');
          if p>b then writeln(g,'1');
          if p<b then writeln(g,'0');;
     end;

{----------------------------------------------------}
     close(g);
     close(f);end.