daycon

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

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

function inArray(x,y:longint):longint;
var i,tmp:longint;
begin
  tmp:=0;
  for i:=y to n[2] do if x=a[2][i] then
    begin
      tmp:=i;
      break;
    end;
  inArray:=tmp;
end;

function solve():boolean;
var
  i,j,c:longint;
  tmp:boolean;
begin
  i:=0;
  c:=0;
  tmp:=true;
  for i:=1 to n[1] do
    begin
      j:=inArray(a[1][i],c+1);
      if j>0 then c:=j
      else tmp:=false;
    end;
  solve:=tmp;
end;

begin
  clrscr();

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

  readln();
end.