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

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

program pr11_d;
uses
  math;
var
  a, b, x, y, z : real;
begin
  //Slava Urkaini
  writeln('vvedit x');
  readln(x);
  writeln('vvedit y');
  readln(y);
  writeln('vvedit z');
  readln(z);
  a := 2*cos(x-pi/6)/(1/2 + sqr(sin(y)));
  b := 1 + sqr(z) / (3 + sqr(z) / 5);
  write('a=');
  writeln(a:10:4);
  write('b=');
  writeln(b:10:4);
  readln;
  //hutin pui
end.