Cod sursa(job #137081)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 16 februarie 2008 21:17:01
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.45 kb
program NOD_SOFTWARE;
var a,b:longint;
    t,i,j:integer;
    fin,fout:text;
{*-----------------------------*}

{*-------------MAIN------------*}
begin
     assign(fin,'fructe.in'); reset(fin);
     assign(fout,'fructe.out'); rewrite(fout);
     readln(fin,t);
     for i:=1 to t do
     begin
          readln(fin,a,b);
          if a=b then writeln(fout,'1')
          else writeln(fout,'0');
     end;
     close(fin);
     close(fout);
end.