Задача с многочленами.

[Impario]

Доброго вам время суток!
http://imageshost.ru/links/d16dce742...bc5cd32b70ce7f
Последняя задача!
С наступающим вас!!!
примерная задача переделайте пожалуйста!
Это как бы не та задача помогите переделайте!!!
program pr660;
uses crt;
const
max = 1024;

type Massiv = array[1..max] of integer;

var
s, t, n : integer;
i : integer;
a, P : Massiv;
Len_P : integer;

begin
clrscr;
Write('Vvedite n: ');
ReadLn(n);

Randomize;
for i:=1 to n
do begin
a[i]:=Random(100);
if Random(2) = 0 then a[i]:=a[i] * -1;
end;

Write('Massiv a:');
for i:=1 to n do Write(a[i]:4);
WriteLn;

Len_P:= 0;
for i:=1 to n
do begin
if a[i] < 0 then begin Len_P:= Len_P + 1; P[Len_P]:= a[i]; end
end;
WriteLn; Write('Massiv P:');
for i:=1 to Len_P do Write(P[i]:4);

WriteLn; WriteLn;

{WriteLn;} Write('Vvedite s: '); Read(s);
{WriteLn;} Write('Vvedite t: '); Read(t);

WriteLn; Write('Poluchennii rezultat: ');
Write(P[s] + p[1]+p[2]+p[3]);
readln;
readln;
end.

[capta1n]

так а в чем проблема???

[Impario]

Проблемы в том что это задача не по услоВию!!!