проверка!

program p8;
var x1,x2,x3,x4,y1,y2,y3,y4:real;
i,m,n,t,arccos:real;
procedure scal(a1,a2,a3,a4,b1,b2,b3,b4:real;var f:real);
begin
f:=sqr(a1*a2*a3*a4)+sqr(b1*b2*b3*b4)
end;
begin
writeln('введите X1,x2,x3,x4,y1,y2,y3,y4');
readln(x1,x2,x3,x4,y1,y2,y3,y4);
{scal(x1,x2,x3,x4,y1,y2,y3,y4,i);
scal(x1,x2,x3,x4,m),*scal(y1,y2,y3,n);}
t:=(arccos*{scal}(x1*x2*x3*x4*y1*y2*y3*y4*i)/sqrt{scal}(x1*x2*x3*x4*m)*{scal}(y1*y2*y3*y4*n));
writeln('ygof=',t:8:2);
readln;
end.

program p71;
const
n=10; {n Єюы№ъю юЄ 2 фю 15!}
var
Matrix:array[1..n,1..n]of byte;{Єюы№ъю byte!}
uni:set of byte;
i,j:byte;
begin
randomize; {шэшЎшрышчрЎш* ухэхЁрЄюЁр ёыєўрщэvї ўшёхы}
uni:=[];
{ёючфрэшх ьрЄЁшЎv}
for i:=1 to n do
begin
for j:=1 to n do
begin
Matrix[i,j]:=Random(128);{ухэхЁрЄюЁ ёыєўрщэvї ўшёхы}
write(Matrix[i,j]:3,' ');
end;
writeln;
end;
{яюшёъ єэшъры№эvї ¤ыхьхэЄют}
writeln;
writeln;
for i:=1 to n do
for j:=1 to n do uni:=uni + [Matrix[i,j]];
write('Unikalnye chisla: ');
for i:=0 to 255 do
if i in uni then write(i:3,' ');
writeln;
 
readln;
end.

t:=(arccos(scal(x1*x2*x3*x4*y1*y2*y3*y4*i))/sqrt(scal(x1*x2*x3*x4*m)*scal(y1*y2*y3*y4*n));

procedure scal(a1,a2,a3,a4,b1,b2,b3,b4:real;var f:real);

procedure scal(a1,a2,a3,a4,b1,b2,b3,b4:real);
var f:real;
begin
f:=sqr(a1*a2*a3*a4)+sqr(b1*b2*b3*b4)
end;