помогите плз

[Broneslav]

http://imageshost.ru/links/5f34d791f...cc66d24e2629c1

[puporev]

uses crt;
const n=10;
var x:array[1..n] of real;
    i,j:integer;
    s,y:real;
begin
clrscr;
writeln('Vvedite ',n,' elementov');
for i:=1 to n do
read(x[i]);
readln;
y:=1;
for i:=n downto 1 do
  begin
    s:=0;
    for j:=n downto i do
    s:=s+x[j];
    y:=y*s;
  end;
write('Y=',y:0:4);
readln
end.