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

[ttjke]

Даны действительное число x[ATTACH]1141[/ATTACH]
помогите исправить ошибки

[syntax='Pascal']
SysUtils;

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

BEGIN
writeln('vvedite x');
readln(x);
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('y=',y:2:2);
readln(y);
END.[/syntax]

[Newbie]

жесть))
1. writeln('vvedite x');
после всего ))))))))

2. readln;
что ты вводишь то?)

[ttjke]

жесть))
1. writeln('vvedite x');
после всего ))))))))

2. readln;
что ты вводишь то?)

я исправил, так получается?

[Newbie]

я исправил, так получается?

нэт

writeln('y=',y:2:2);
readln(y);
зачем вводить то опять? те вывести надо. Т.е. просто writeln('y=',y:2:2);
readln;

в остальном должно быть все ок. (если не считать кривого цикла while), просто логически как-то не понятно построен)

[ttjke]

нэт

writeln('y=',y:2:2);
readln(y);
зачем вводить то опять? те вывести надо. Т.е. просто writeln('y=',y:2:2);
readln;

в остальном должно быть все ок. (если не считать кривого цикла while), просто логически как-то не понятно построен)

спасибо огромное, а почему он кривой?

[Хыиуду]

Можно было это сделать в цикле for. Но это на любителя.