программа на вычисление скалярного произведения

[klopp]

помогите пожалуйста кто может решить две задачи. сам я никогда не справлюсь.

Заданы массивы х= {х1; х2; х3}, у = {у1; у2; у3}, z= {z1;z2;z3;z4} и р = {р1; р2; р3;р4},
Вычислить скалярное произведение S1 массивов х и у, скалярное произведение S2 массивов z и p. Переменной а присвоить значение по формуле :

..... 1, если S1 > s2
а={ 0,если S1 = S2
..... -1,если S1 < S2
Вычисление скалярного произведения оформить в виде подпрограмм типа FUNCTION. Скалярное произведение S массивов a и b вычисляется по формуле;
S= ∑ a1 х b1
Значения исходных данных для расчётов: х= {4; -2; 5}, у = {1; 2; 3}, z= {2,5;8;2;4} и р = {3; -1; 0,6;3,2},

№ 2

Заданы массивы х= {х1; х2; х3}, у = {у1; у2; у3}, определяющие координаты соответствующих векторов
Вычислить длину LX вектора х, длину LY вектора у переменной р присвоить значение по формуле

..... 1, если LX > LY
з={ 0,если LX = LY
..... -1,если LX < LY
Вычисление длинны вектора оформить в виде подпрограмм типа FUNCTION . длина L вектора а вычисляется по формуле
1= √∑ a1 (√- корень квадратный)
Значения исходных данных для расчётов: х= {6,1; 2; -3}, у = {-2,4; 3; 5;2},

пожалуйста помогите. буду очень благодарен

[alex_fcsm]

uses crt;
var x,y:array[1..3] of real;
    p,z:array[1..4] of real;
    i,j:integer;
    s1,s2:real;


function Mult(var a,b:array of real;n:integer):real;
var i:integer;
    e:real;
begin
e:=0;
for i:=0 to n-1 do
  e:=e+a[i]*b[i];
Mult:=e;
writeln;
end;


begin
clrscr;
writeln('X');
for i:=1 to 3 do
 read(x[i]);
writeln('Y');
for i:=1 to 3 do
  read(y[i]);
writeln('P');
for i:=1 to 4 do
 read(p[i]);
writeln('Z');
for i:=1 to 4 do
  read(z[i]);
s1:=0;s2:=0;
s1:=Mult(x,y,3);
s2:=Mult(p,z,4);
if s1>s2 then writeln('A=1')
   else if s1<s2 then writeln('A=-1')
         else writeln('A=0');
end.

[alex_fcsm]

var x,y:array[1..3] of real;
    i:integer;
    Lx,Ly:real;

function Len(var a:array of real):real;
var j:integer;
    e:real;
begin
e:=0 ;
for j:=0 to 2 do
  e:=e+sqr(a[j]);
Len:=sqrt(e);
end;

begin
writeln('X');
for i:=1 to 3 do
 read(x[i]);
writeln('Y');
for i:=1 to 3 do
  read(y[i]);
Lx:=Len(x);
Ly:=Len(y);
if lx>ly then writeln('A=1')
   else if lx<ly then writeln('A=-1')
         else writeln('A=0');
end.

[klopp]

клёва)) спс большое!
можно поросить ещё об одном если не в напряг, просто есть ещё одна задачка. сможешь сделать ?
Заданы матрица a= {a11} размера 3х3 и матрица b={b11} размера 4х4; Хн до Хк с шагом ∆х. вычисление вычисление следа матрицы оформить в виде подпрограммы FUNCTION. След s матрицы х вычисляется по формуле
S= ∑a1 x b1,
Значения исходных данных для расчётов
Хн=2,4; Хк=3,6 , ∆х=0,2
…. l 1 2 -3 l
А= l 4 -8 6 l
…..l 7 8 9 l

….. l 12 8 4 1 l
…… l 75 3 12 6 l
В = l -2 1 -1 7 l
….. l 5 4 3 2 l

спс заранее))