Исправить ошибку и составить блок схему

[garic]

привет помогите пожалуста с прогой, не считает зараза! походу какое-то слово забыл,- а какое незнаю,т.к. только начинаю програмирвать.


[syntax="pascal"]
program Garick;
var
x,z,y,i,E,N,S,Q,P,F:real;
begin
N:=10;
y:=1;
Q:=N*N/(N-1);
repeat
y:=(Q/(y*y*y*y)-y)/5+y;
until abs(y*y*y*y*y-Q)<E;
x:=2;
repeat
z:=1;
S:=0;
repeat
i:=1;
repeat
P:=(x-z)/i;
S:=S+P;
i:=i+1;
until i>10;
F:=y*S;
writeln(F,y,S);
z:=z+1;
until z>10;
x:=x+2;
until x>20;
end.[/syntax]

[dr.Jekill]

Что должна делать программа?

[TokSeven]

Код: Выделить всё

until   abs(y*y*y*y*y-Q)<E;

переменной Е не присвоено никакого значения.

[garic]

программа должна считать значения функций и аргументов,типа
crtl+F9 нажал и фсё должно высветиться. E=0,0001

[dr.Jekill]

Вы сами себе не хотите помочь. Какая функция? Какие аргументы?
Е нужно определить в константах или присвоить ей значение в теле программы, до того как она используется в сравнении.
y*y*y*y*y - можно заменять на exp(5*ln(y))