uses
  system;

var
  y: array of real;
  i, m: integer;
  sum: real;
  cache: string;

begin
  sum := 0;
  repeat
    Console.Write('Введите число M (3 <= M <= ' + MaxByte + '): ');
    Cache := Console.ReadLine();
    if not TryStrToInt(Cache, M) and not (M in [3..MaxByte]) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until M in [3..MaxByte];

  SetLength(Y, M + 1); // Выделим память...

  repeat
    Console.Write('Введите число Y[0]: ');Cache := Console.ReadLine();
    if not TryStrToFloat(Cache, Y[0]) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToFloat(Cache, Y[0]);

  repeat
    Console.Write('Введите число Y[1]: ');Cache := Console.ReadLine();
    if not TryStrToFloat(Cache, Y[1]) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToFloat(Cache, Y[1]);

  repeat
    Console.Write('Введите число Y[2]: ');Cache := Console.ReadLine();
    if not TryStrToFloat(Cache, Y[2]) then Console.WriteLine('Ошибка: Введено не верное значение. Повторите ввод...');
  until TryStrToFloat(Cache, Y[2]);
  Sum += Y[0] + Y[1] + Y[2];;
  i := 3;
  while i <= m do
  begin
    Y[i] := Sin(Y[i - 1]) - Cos(Y[i - 3]);
    Sum += Y[i];
    i += 1;
  end;
  Console.WriteLine('Ответ: ' + Sum);
end.