Даны действительные числа а и в. получить 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