{$APPTYPE CONSOLE}
uses  sysutils;
var input,output,answer: string;
    i, pts: integer;
    f,f0,f1,f2: textfile;
var p0,q0,p,q: integer;

procedure rep (msg: string);BEGIN
   assign(f,'report');
  rewrite(f);
  writeln(f,msg);
  close(f); {$I-} halt(0)     END;
                            BEGIN
pts:=strtoint(paramstr(1));
 input:=paramstr(2);
output:=paramstr(3);
answer:=paramstr(4);
  if not FileExists(input)  then rep('0 - Вхідний файл не існує');
  if not FileExists(output) then rep('0 - Вихідний файл не існує');
  if not FileExists(answer) then rep('0 - Файл відповіді не існує');
{$I-}
assign(f1,output); reset(f1); if IOResult <> 0 then rep('0 - Неможливо відкрити вихідний файл');
assign(f2,answer); reset(f2); if IOResult <> 0 then rep('0 - Неможливо відкрити файл відповіді');

{Own part}
readln(f2,p0,q0);                                                                      close(f2);
readln(f1);     if not eof(f1)  then rep('0 - Файл відповіді довший за еталон');       close(f1);
 reset(f1);
  read(f1,p,q); if not eoln(f1) then rep('0 - Перший рядок відповіді занадто довгий'); close(f1);
if (p= p0) and (q= q0) then rep('2 - Все гаразд')                else
if (p= p0) and (q<>q0) then rep('1 - Розбіжність у 2-ому числі') else
if (p<>p0) and (q= q0) then rep('1 - Розбіжність у 1-ому числі') else
                            rep('0 - Розбіжність у обох числах')  END.