TYPE
 Vect=Array[1..4] of Real;

VAR
 R1,R2:Real;
 x,y,z,p:Vect;
 i:Integer;

Procedure SP(M1,M2:Vect;var Res:Real);
var
 j:Integer;
begin
 Res:=0;
 for j:=1 to 4 do
  Res:=Res+M1[j]*M2[j];
end;

BEGIN
 For i:=1 to 4 do
  begin
   write('x',i,'= ');
   readln(x[i]);
  end;
 For i:=1 to 4 do
  begin
   write('y',i,'= ');
   readln(y[i]);
  end;
 For i:=1 to 4 do
  begin
   write('z',i,'= ');
   readln(z[i]);
  end;
 For i:=1 to 4 do
  begin
   write('p',i,'= ');
   readln(p[i]);
  end;

 SP(x,y,R1);
 SP(z,p,R2);
 Write(R1>R2);
 Readln;
END.