Вывести на экран сообщение, превышает ли наибольшее из имеющихся чисел заданную величину Q. - Pascal ABC

Формулировка задачи:

Народ, плиз, помогите заочнику!Замучилась искать помощь в офлайне 1. Надо вычислить D при любых значениях a, x: D= (двойная скобка, не знаю, как тут ее найти) , если ; , если . 2. Заданы три числа a, d, c. Вывести на экран сообщение, превышает ли наибольшее из них заданную величину Q. 3. S=cos(x+1)+cos(x+2)+cos(x+3)+...+cos(x+21) Это срочно, зачет через полтора часа! Кто откликнется - самая огромная благодарность!!!!!!

Решение задачи: «Вывести на экран сообщение, превышает ли наибольшее из имеющихся чисел заданную величину Q.»

Листинг программы

var a,x,d:real;
begin
writeln('Введите a,x');
readln(a,x);
if a>2 then d:=abs(sqrt(x))+a*a-4//модуль совсем зря, корень и так не отрицательный
else d:=(x*x+sin(a)/cos(a))/5;
write('d=',d:0:3);
end.

Объяснение кода листинга программы

В начале объявляются три переменные: a, x и d типа real.
Затем выводится сообщение с просьбой ввести значения a и x.
С помощью функции readln считываются значения a и x.
Далее идет проверка условия a > 2. Если это условие истинно, то присваивается переменной d значение abs(sqrt(x)) + a*a - 4, которое является модулем числа. Это значение предназначено для того, чтобы d было неотрицательным.
Если условие a > 2 не выполняется, то присваивается переменной d значение (x*x + sin(a)/cos(a))/5.
Наконец, выводится на экран значение переменной d с помощью функции write. Формат вывода d:0:3 означает, что десятичная часть числа будет выведена с тремя знаками после запятой.