Сообщение от Vladimir_S

Код:
TYPE
Vect=Array[1..4] of Real;
CONST
x:Vect=(1,2,3,0);
y:Vect=(2.5,6,3.2,0);
z:Vect=(3.7,1.2,6.4,-5.3);
p:Vect=(-1,4,1,-2);

VAR
R1,R2:Real;

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

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