Проблема с написанием программы в Паскале

[alexchromets]

Дана задача:
Определить y=max{exp(x)*ln(3);min(a,b)}; где a= a:=(sin(x/2)/cos(x/2)); b:=-0.8*sqr(x); (условие перевёл на Паскаль)

У меня получилось только

program zadacha4;
uses CRT;
var
y,x,a,b,z:real;
BEGIN
 writeln('vvedite x:');
 readln(x);
 a:=(sin(x/2)/cos(x/2));
 b:=-0.8*sqr(x);

Что дальше в коде писать - не могу сообразить Там надо вводить дополнительную переменную? И как считать мах и min или что там надо сделать?
P.S. Я погуглил, про мах и min идёт речь только в массивах.