Дано действительное число x

[ttjke]

Дано действительное число x Безымянный.JPG
Помогите исправить ошибки

PROGRAM Project;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
VAR
   A,y,x,P:real;
   i:integer;
 
BEGIN
 A:=x*x*x;
 P:=6;
 y:=x-A/P;
 i:=5;
 while(i<=13) do
 begin
 A:=A*x*x;
 P:=P*(i-1)*i;
 y:=y+A/P;
 i:=i+2;
 end;
 writeln('vvedite x');
 readln;
 writeln(y);
 readln;
END.

[Adamrus]

PROGRAM Project;
{$APPTYPE CONSOLE}
uses
SysUtils;

VAR
A,y,x,P:real;
i:integer;

BEGIN
A:=x*x*x;
P:=6;
y:=x-A/P;
i:=5;
while(i<=13) do
begin
A:=A*x*x;
P:=P*(i-1)*i;
y:=y+A/P;
i:=i+2;
end;
writeln('vvedite x'); // почему ввод X после основного алгоритма?
readln; // readln(x); куда читать
writeln(y);
readln;
END.

[ttjke]

а как сделать чтобы он считал то что надо в задании?

[Adamrus]

код на Delphi
X вводится в Edit, ответ в Label

procedure MyProc();
var
   A,y,x,P:real;
   i:integer;
begin
  if (Edit1.Text<>'') then
    begin
      x:=strtofloat(Edit1.Text);
      A:=x*x*x;
      P:=6;
      y:=x-A/P;
      i:=5;
      while(i<=13) do
        begin
          A:=A*x*x;
          P:=P*(i-1)*i;
          y:=y+A/P;
          i:=i+2;
        end;
     end;
  Label1.Caption:='Y= '+floattostr(y);
end;

если подключить модуль Math, то

procedure MyProc();
var
   A,y,x,P:real;
   i:integer;
begin
  if (Edit1.Text<>'') then
    begin
      x:=strtofloat(Edit1.Text);
      A:=Power(x, 3);
      P:=6;
      y:=x-A/P;
      i:=5;
      while(i<=13) do
        begin
          A:=A*Power(x, 2);
          P:=P*(i-1)*i;
          y:=y+A/P;
          i:=i+2;
        end;
  Label1.Caption:='Y= '+floattostr(y);
    end;
end;

или
exp(ln(x)*n) n -стпень

procedure MyProc();
var
   A,y,x,P:real;
   i:integer;
begin
  if (Edit1.Text<>'') then
    begin
      x:=strtofloat(Edit1.Text);
      A:=exp(ln(x)*3) ;
      P:=6;
      y:=x-A/P;
      i:=5;
      while(i<=13) do
        begin
          A:=A*exp(ln(x)*2);
          P:=P*(i-1)*i;
          y:=y+A/P;
          i:=i+2;
        end;
  Label1.Caption:='Y= '+floattostr(y);
    end;
end;

да, кстати, вот http://programmersforum.ru/showthread.php?t=4192
или
http://programmersforum.ru/showthread.php?t=44328