daydoancon

uses crt;
var
  a:array[1..2,1..100] of longint;
  n:array[1..2] of longint;
  i:longint;

procedure readArray(x:longint);
var i:longint;
begin
  write('Nhap so phan tu day [',x,']: ');
  readln(n[x]);
  for i:=1 to n[x] do
    begin
      write('Nhap phan tu [',x,'][',i,']: ');
      readln(a[x][i]);
    end;
end;

procedure Arr2Str(x:longint; var str:string);
var i:longint;
begin
  str:='';
  for i:=1 to n[x] do
    str:=str+chr(a[x][i]+48);
end;

function solve():boolean;
var str:array[1..2] of string;
begin
  for i:=1 to 2 do Arr2Str(i,str[i]);
  if pos(str[1],str[2])>0 then solve:=true
  else solve:=false;
end;

begin
  clrscr();

  for i:=1 to 2 do readArray(i);
  writeln('Day 1 la day doan con cua day 2: ',solve());

  readln();
end.