uses crt;
const n=6;
Type Tmass=array[1..6] of integer;
{-----------------------------------}
function Scolar(v1,v2:Tmass):integer;
var i,sm:integer;
begin
sm:=0;
for i:=1 to n do
sm:=sm+v1[i]*v2[i];
Scolar:=sm;
end;
{-----------------------------------}
 
var x,y,z:Tmass;
    i:integer;
 
begin
clrscr;
writeln('Vector X:');
for i:=1 to n do
    begin
      write('Enter Xi ',i,': ');
      readln(x[i]);
     end;
writeln('Vector Y:');
for i:=1 to 6 do
    begin
      write('Enter Yi ',i,': ');
      readln(y[i]);
      end;
writeln('Vector Z:');
for i:=1 to 6 do
    begin
      write('Enter Zi ',i,': ');
      readln(Z[i]);
     end;
Writeln('XY=',Scolar(x,y));
Writeln('XZ=',Scolar(x,z));
Writeln('YZ=',Scolar(y,z));
readln;
end.