program z1;

var
   a, b, y: real;// описание переменных
   x: Integer;
begin

   // визитка
   writeln('Вычисление функции');
   writeln('Разработал: Черкасов Даниил Викторович');
   writeln('Гр.10114120 Lab_2 Вариант_1');

   // текст программы
   writeln('');
   a := 453.6787;
   b := -0.1245678 * (10 * 10 * 10);
   for x := 1 to 10 do
   begin
      if abs(a - b) < x - 1 then
         y := a * power(x, 3) + b * log(abs(2 * x));
      if (abs(a - b) <= x) and (abs(a - b) >= x - 1) then
         y := sqrt(a + sin(2 * x)) - power(e, abs(3 * x));
      if abs(a - b) > x then
         y := arctan(5 * x) / (b * cos(x) + ln(a * x));
      Writeln('При х = ', x, ' функция равна: ', y:7:3);
   end;

   // вывод результата
   //writeln('');
   //write('Фунция равна: ', d:7:3);

end.