Даны действительные числа А и В. Получить z = arctg(ab)+cos(b).

var   a,b:real; begin   Write('Введите a,b: '); Read(a,b);   Writeln('z=',arctan(a*b)+cos(b)) end. Тестовое решение: Введите a,b: 0.53 1.3562 z=0.836176098548194