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

program zz1;

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

begin

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

read(a);  

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

read(b);

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

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

END.