Розв’язок задачі з Абрамова №11б

Всі умови | Умова: Дано дійсні числа x, y, x. Обрахувати a, b, якщо... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №11)

program pr11;
uses
  math;
const
  e = 2.71828182846;
var
  x, y, z, a, b : real;
begin
  readln(x, y, z);
  a := (3 + power(e, y - 1)) / (1 + sqr(x) * abs(y - sin(z) / cos(z)));
  b := 1 + abs(y - x) + sqr(y -x) / 2 + power(abs(y - x), 3) / 3;
  
  writeln('a = ', a : 5 : 2);
  writeln('b = ', b : 5 : 2);
  readln;
end.