Составить программу определения значения функции в точке

program ideone;
 
function InData(c : Char) : Single;
var
    Result : Single;
begin
    Write('Input ', c, '='); ReadLn(Result);
    InData := Result;
end;
 
function ProcData(a, b, q, x, y : Single) : Double;
begin
    if (a + sqr(cos(x)) >= 0) And (q > 0) And (q <> 1) And (b + y * sin(x) <> 0) then
        ProcData := sqrt(a + sqr(cos(x))) / (ln(q) * (b + y * sin(x)))
    else
        ProcData := -99999999999;
end;
 
procedure OutData(r : Double);
begin
    WriteLn;
    WriteLn('Z=', r:0:3);
end;
 
begin
    OutData(ProcData(InData('a'), InData('b'), InData('q'), InData('x'), InData('y')));
end.

program ideone;
 
function InData(c : Char) : Single;
{функция для чтения значения переменной. параметром является буква читаемой переменной. результат функции - собственно переменная}
var
    Result : Single;
begin
    Write('Input ', c, '='); ReadLn(Result); //читаем значение
    InData := Result; //возвращаем его
end;
 
function ProcData(a, b, q, x, y : Single) : Double;
{функция расчёта по заданной формуле. принимает пять параметров, возвращает результат расчёта}
begin
    if (a + sqr(cos(x)) >= 0) And (q > 0) And (q <> 1) And (b + y * sin(x) <> 0) then //проверка на недопустимые действие, например, на деление на ноль и нахождение корня из отрицательного числа. тут вполне мог чего и пропустить
        ProcData := sqrt(a + sqr(cos(x))) / (ln(q) * (b + y * sin(x))) //расчитываем по формуле
    else
        ProcData := -99999999999; //если нельзя расчитать - возвращает типа минус бесконечность (почему именно так - сам хз, что в голову пальнуло)
end;
 
procedure OutData(r : Double);
{функция вывода результата. принимает одно число как параметр, не возвращает ничего ибо процедура}
begin
    WriteLn; //перевод строки
    WriteLn('Z=', r:0:3); //выводим на экран результат расчётов
end;
 
begin
    OutData(ProcData(InData('a'), InData('b'), InData('q'), InData('x'), InData('y')));
    {вызываем функции: вывод на экран с параметром-функцией расчёта, у которой, в свою очередь, параметры-функции ввода}
end.