Ошибка в коде

[devtriker]

Доброго времени суток! исправьте код пожалуйста
Спасибо.

program
SysUtils;

var
x,eps,S,k,m,znak,znam,chis:real;
N:Integer;
begin
Writeln('To4HOCTb');
Readln(eps);
Writeln('3HA4EHuE X');
Readln(x);
N:=0;
m:=x*x;
znak:=1;
chis:=1/x;
znam:=-1;
k:=znak*chis/znam;
S:=k;
if (x>1) and (x<-1) then
begin
Writeln('S HE CYLLleCTByET');
Readln;
end
else
while Abs(k)<=eps do
begin
N:=N+1;
znak:=znak*(-1);
chis:=1/chis*m;
znam:=4*N*N-1;
k:=znak*chis/znam;
S:=S+k;
end;
Writeln('S=',S);
readln;
end.

[eoln]

Сообщение от devtriker

исправьте код пожалуйста

Так сойдёт?

var
  x, D, m: real;
const 
  a = 2.8; b = -0.3; c = 4.0; e = 0.001;
begin
  x := 1.0;
  m := 1.2;
  repeat
    write('x = ', x:0:2);
    if x < (m - e) then
      D := a * sqr(x) + b * x + c
    else if x > (m + e) then
      D := (a + b * x) / sqrt( sqr(x) + 1 )
    else {1.2}
      D := a + sqrt( sqr(x) + 1 );
    writeln ('   D = ', D:0:4); 
    x := x + 0.05;
  until x > 2.0;
  readln;
end.

Сообщение от devtriker

Спасибо.

Пожалуйста

=================================== ========
Что за ошибка? Какое задание?

[min@y™]

Writeln('S HE CYLLleCTByET');

По-русски - не умеет, по-английски - не хочет. Или наоборот.
Ужоснах!

Что программа делает-то?

[Stilet]

Что программа делает-то?

Что что... HE CYLLleCTByET

[Foreseen]

Может человек КСник бывший, а вы накинулись)

[Stilet]

Может человек КСник бывший, а вы накинулись)

Ага. Т9-тник.