Напишите программу в Turbo Pascal

uses crt;

const n=10;

var x:array[1 ... n] of real;

i, z:integer;

y:real;

begin

clrscr;

randomize;

for i:=1 to n do

begin

x[i]:=5*random;

write (x[i]:5:2);

end;

writeln;

z:=1;

y:=0;

for i:=1 to n div 2 do

begin

y:=y+z*x[i]*x[n-i+1];

z:=-z

end;

write ('y=', y:0:2);

readln

end.