Паскаль.подпрограммы

[Андрюха74]

Помогите написать программу........Заданы два вектора х = (x1, x2, x3, x4), y = (y1, y2, y3, y4). Определить угол a между векторами x и y по формуле: фи=acrcos((x*y)/sqrt(x*x)(y*y)) Вычисление скалярного произведения оформить в виде процедуры.

[Chudo4258]

procedure fi_s(x1,x2,x3,x4.y1,y2,y3,y4:real; var fi:real);
begin
fi:=acos((x1*y1+x2*y2+x3*y3+x4*y4)/sqrt(sqr(x1)+sqr(x2)+sqr(x3)+sqr(x4))*sqrt(sqr(y1)+sqr(y2)+sqr(y3)+sqr(y4)));
end;

[Андрюха74]

Спасибо=)))