Составить программу в Pascal ABC. cos^2x-5 A= _______ √x^2+3

Question

Составить программу в Pascal ABC.
cos^2x-5
A= _______
√x^2+3

Answer 1

//прога на Pascal`e
var
x: real;

function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;

begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.