var a,b:text;
x,y:integer;
bool1,bool2:boolean;
begin
assign(a,'f1.txt');
assign(b,'f2.txt');
reset(a);
Reset(b);
bool1:=false;
bool2:=false;
while not EOF(a) do
begin
read(a,x);
read(b,y);
if x=y then bool1:=true else bool2:=true; 
end;
if (bool1) and (bool2=false) then writeln('Совпадают') else writeln('Не совпадают');
close(a);
close(b);
end.