Помогите исправить ошибки! Пожалуйста!
Код:
var x, s, f, a: real;
k: integer;
begin
write ('x=');
readln (x);
k:=1;
f:=6;
s:=x/f;
repeat
k:=k+1;
f:=f*(k+2);
a:=x/(sqrt(k)*f);
s:=s+a;
until (k>10) and (abs(x)/(sqrt(k)*f*(k+1)))<0.0001;
readln;
end.
lmikle: Читаем правила оформления кода.