Вычислить значения выражений

program Project1;
{$codepage utf8}
 
function fact(nn:integer):double;
{Функция для вычисления факториала}
begin
  if nn = 1
  then
    fact:= 1
  else
    fact:= fact(nn-1)*nn;
end;
 
 
var
  y1,y2,y3: real; {Переменные для хранения значенияй результата вычислений}
  x1: array[1..3] of real = (3.2, 3.4, 3.6); {Переменная для массива с аргументами}
  x2: array[1..3] of real = (-0.5, -0.7, -0.9); {Переменная для массива с аргументами}
  x3: array[1..3] of integer = (4, 7, 10);  {Переменная для массива с аргументами}
  flag: boolean; {Логическая переменная для корректного вывода ответа}
  k,i: integer;  {Переменные для организации циклов}
begin
  writeln('Вычисления для первой формулы');
  for i:= 1 to 3 do
    begin
      flag:= true;
      y1:= 0;
      for k:= 10 to 16 do
        if k - 5*x1[i] <> 0 then
          y1:= y1 + cos(x1[i])/(k - 5*x1[i])
        else
          begin
            flag:= false;
            break;
          end;
 
      if flag then
        writeln('При  x = ',x1[i]:0:1,'; y1 = ',y1:0:2)
      else
        writeln('Значение функции не определено.');
    end;
  writeln('Вычисления для второй формулы');
  for i:= 1 to 3 do
    begin
      y2:= 1;
      for k:= 10 to 16 do
          y2:= y2 * (x2[i] + ln(k));
      writeln('При  x = ',x2[i]:0:1,'; y2 = ',y2:0:2);
    end;
  writeln('Вычисления для третьей формулы');
  for i:= 1 to 3 do
    begin
      y3:= fact(x3[i]-2);
      writeln('При  x = ',x3[i],'; y3 = ',y3:0:0);
    end;
 
  Readln;
end.