Turbo Pascal / Stud_1_1 / Metlab / LABOR2 / LABOR2

Program Lab2;
Uses Crt;
Const  eps = 0.001;
Var
    i,              { Ї а ¬Ґва жЁЄ«  }
    m : byte;       { Є®«-ў® ўлЇ®«­Ґ­Ё© ў­Ґи­ҐЈ® жЁЄ«  }
    x,              {  аЈг¬Ґ­в дг­ЄжЁЁ }
    xn,xk,          { ­ з «м­®Ґ Ё Є®­Ґз­®Ґ §­ зҐ­Ёп x }
    hx,             { и Ј Ё§¬Ґ­Ґ­Ёп  аЈг¬Ґ­в  x }
    max,            { max(y,S) }
    n,              { Є®«ЁзҐбвў® ЁвҐа жЁ© }
    a,              { н«Ґ¬Ґ­в ап¤  }
    S,              { з бвЁз­ п б㬬  ап¤  }
    y,              { §­ зҐ­ЁҐ дг­ЄжЁЁ }
    dy : real;      { Ї®ЈаҐи­®бвм ўлзЁб«Ґ­Ёп, % }
    ch : char;      { бЁ¬ў®« ­ ¦ в®© Є« ўЁиЁ }
Begin
  ClrScr;
  Writeln('‚ўҐ¤ЁвҐ §­ зҐ­Ёп xn,xk,hx');
  Read(xn,xk,hx);
  Writeln('              xn= ',xn:5:2,'      xk= ',xk:5:2,
          '       hx= ',hx:5:2);
  Writeln('  ЪДДДДДДДДДВДДДДДДДДВДДДДДДДДДДДДДВДДДДДДДДДДДДДВ',
          'ДДДДДДДДДДДДДДДї');
  Writeln('  і    x    і    n   і      S      і      y      і',
          '     dy, %     і');
  Writeln('  ГДДДДДДДДДЕДДДДДДДДЕДДДДДДДДДДДДДЕДДДДДДДДДДДДДЕ',
          'ДДДДДДДДДДДДДДДґ');
  m:=Round((xk-xn)/hx)+1;
  x:=xn;
  For i:=1 to m do
    Begin
      a:=x; S:=x; n:=1;
      While abs(a)>eps do
        Begin
          a:=-sqr(x)*a/((2*n)*(2*n+1));
          S:=S+a;
          n:=n+1;
        End;
      y:=sin(x);
      If abs(y)>abs(S) then
        max:=y
      Else
        max:=S;
      If (abs(y)>1E-10) or (abs(S)>1E-10) then
        dy:=100*abs((y-S)/max)
      Else
        dy:=0;
      Writeln('  і ',x:6:2,'  і  ',n:3:0,'   і  ',S:9:6,'  і  ',
              y:9:6,'  і  ',dy:10,'   і');
      x:=x+hx;
    End;
  Writeln('  АДДДДДДДДДБДДДДДДДДБДДДДДДДДДДДДДБДДДДДДДДДДДДДБД',
          'ДДДДДДДДДДДДДДЩ');
  Repeat
    ch:=ReadKey;
  Until ord(ch)=27;
End.