program laba4;

uses
  System.SysUtils;

var
   n, i, k: integer;
   num, x, sin : double;
   isCorrect: boolean;
   const MinX = -1;
   const MaxX = 1;
   const Min1 = 1;
   const MaxInt = High(Integer);
begin
   Writeln ('Введите число, синус которого нужно вычислить');
   IsCorrect := True;
   repeat
      try
         ReadLn(x);
         if ((x < MinX) or (x > MaxX)) then
            begin
               Writeln ('Ошибка! Введите число от ' , MinX , ' до ' , MaxX);
               IsCorrect := False;
            end
          else
            IsCorrect := True;
      except
         begin
            Writeln ('Ошибка! Введите число от ' , MinX , ' до ' , MaxX);
            IsCorrect := False;
         end;
      end
   until IsCorrect;
   Writeln ('Введите n, до которого нужно вычислить синус');
   IsCorrect := True;
   repeat
      try
         ReadLn(n);
         if ((n < Min1) or (n > MaxInt)) then
            begin
               Writeln ('Ошибка! Введите число от ' , Min1 , ' до ' , MaxInt);
               IsCorrect := False;
            end
          else
            IsCorrect := True;
      except
         begin
            Writeln ('Ошибка! Введите число от ' , Min1 , ' до ' , MaxInt);
            IsCorrect := False;
         end;
      end
   until IsCorrect;
   sin:=0; k:=1;
   for i := 1 to n do
   begin
         k := k*(2*i - 1);
         num := (exp((i-1)*ln(-1))*exp((2*i-1)*ln(x)))/k;
         sin := sin + num;
   end;
   Writeln ('Синус ', x ,' равен: ', sin);
   Readln;
end.