program Maarah;
type arr=array of integer;
var a,a1:arr;
    i,j:integer;
    x:boolean;
function arrays(a,a1:arr): boolean;
var i,j:integer;
    check:boolean;
begin
     check:=false;
     i:=1; j:=1;
     for i:=1 to 5 do
     begin
          if a{i}=a1{j} then
          begin
               check:=true;
               j:=j+1;
          end
          else check:=false;
     end;
     arrays:=check;
end;
begin
     for i:=1 to 5 do
     readln(a{i});
     for j:=1 to 5 do
     readln(a1{j});
     x:=arrays(a,a1);
     writeln(x);
end.

Program Ex;
type  x=array{1..5} of integer;
var
  a1,a2:x;
Function Check(m1,m2:x):boolean;
  var
    i:integer;
    ch:boolean;
  begin
    ch:=true;
    For i:=1 to 5 do
      if m1{i}<>m2{i} then
        ch:=false;
    Check:=ch;
  end;
Begin
  if check(a1,a2) then
    writeln('זהים')
  else
    writeln('לא זהים');
End.