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

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

program pr11_4;
  var a, b, x, y, z : real;
begin
  writeln('vvedit x');
  readln(x);
  writeln('vvedit y');
  readln(y);
  writeln('vvedit z');
  readln(z);
  a := y+(x/(sqrt(y)+abs(sqrt(x)/y+power(x,3)/3)));
  b := (1+sqr(sin(z/2)/cos(z/2)));
  write('a=');
  writeln(a);
  write('b=');
  writeln(b);
  readln;
end.