[xrumas]

Вот кусок с 4ым пунктом

Код:

procedure TForm1.Button4Click(Sender: TObject);
var y1,y2:real;
begin
y1:=x[i];
y2:=0;
  for i:=1 to n do begin
     y1:=x[1]*x[1+2];

     for j:=1 to n do begin
      y2:=y2+y1;
end;

   edit4.Text:=floattostr(y1);
edit2.text:=floattostr(y2);
end;
END;