Составить алгоритм - PascalABC.NET

Формулировка задачи:

Составить алгоритм

Решение задачи: «Составить алгоритм»

Листинг программы

var x, y, z, a, b: real;
begin
  write('x, y, z = ');readln(x, y, z);
  a := (1 + cos(y - 2)) / (sqr(sqr(x)) / (2 + sqr(sin(z))));
  b := (3 + power(e, y - 1)) / (1 + sqr(x) * abs(y - tan(z)));
  writeln('a = ', a, '; b = ', b);
end.

Объяснение кода листинга программы

Объявлены пять переменных типа real: x, y, z, a, b.
В первой строке выводится сообщение для ввода значений переменных x, y, z.
Значения переменных x, y, z считываются с помощью функции readln().
Переменная a вычисляется следующим образом: (1 + cos(y - 2)) / (sqr(sqr(x)) / (2 + sqr(sin(z))));
Переменная b вычисляется следующим образом: (3 + power(e, y - 1)) / (1 + sqr(x) * abs(y - tan(z)));
Выводится значение переменной a.
Выводится значение переменной b.