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

program zz1;

var a, b, c:real; / / задаем переменные не целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

c:=arctan (a * b) + cos (b); / / вычисляем результат по заданной формуле

write (' полученный результат = ', c:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

END.