помогите пожалуйста с двумя задачами!

[bear12345]

вот задание к первой задаче:



вот сама программа:

program lab6;
uses crt;
const n = 10;
var a : array[1..n] of real;
var i : integer;
begin
clrscr;
for i:= 1 to n do
begin
write('Enter a',i,': ');
read(a[i]);
end;
clrscr;
for i:= 1 to n do
begin
writeln('coefficient for x^',i,' is ',a[i]/i);
end;
end.

вот задание ко второй задаче:



Вот сама программа:

program lab8;
uses crt;
const n = 2;
var x : array[1..n] of real;
var z : integer;
var s1value,s2value,s3value: real;

function pow(a : real; i : integer) : real;
var m,k : integer;

var result : real;
begin
m:=abs(i);
result := a;
if m = 0 then
begin
pow := 1.0;
exit;
end;
for k := 2 to m do
begin
result := result * a;
end;
if m = i then
begin
pow:= result;
exit;
end;
pow := 1.0/result;
end;


function factorial( i : integer) : real;
var result,m : integer;
begin
result := 1;
for m := 2 to i do
begin
result := result * m;
end;
factorial := result;
end;


procedure s1;
var m: integer;
var result : real;
begin
result := 0.0;
for m := 1 to n do
begin
result := result + pow(abs(x[m]),m)/factorial(m);
end;
s1value := result;
end;

procedure s2;
var m: integer;
var result : real;
begin
result := 0.0;
for m := 1 to n do
begin
writeln(pow(2,1));
result := result + pow(abs(x[m] - s1value),m)/factorial(m);
end;
s2value := result;
end;

procedure s3;
var m: integer;
var result : real;
begin
result := 0.0;
for m := 1 to n do
begin
result := result + pow(abs(x[m] - s2value),m)/factorial(m);
end;
s3value := result;
end;

begin
clrscr;
for z:= 1 to n do
begin
write('Enter x',z,': ');
read(x[z]);
end;

clrscr;
s1;
s2;
s3;

writeln('s1 value is ', s1value);
writeln('s2 value is ', s2value);
writeln('s3 value is ', s3value);
end.

Помогите пожалуйста,проверьте,очень надо!

[Sazary]

В таком случае, заменив строку:

writeln('coefficient for x^',i,' is ',a[i]/i);

на

writeln('coefficient for x^',i,' is ',a[i]/(n-i+1));

Должно все правильно считать..

[bear12345]

спасибо,попробую.