Решите пожалуйста, для паскаль!! Хотя бы- а)

program Task;

var x: real;

begin

 // Задание a

 readln(x);

 writeln(abs(x * x + (x + 2.5) / (3 * x)) - 3 * sqrt(sin(2 * x) - 2 / (1-x)));

 // Задание b

 readln(x);

 writeln(5 * sqrt((2 * x) - 3.5) / (8 * x * x) + exp(x + 2) * cos(3 * x));

 // Задание c

 readln(x);

 writeln((abs(5 * x - 6)) / (sqrt(x * x - 3 + 2.4)) - 3 * Ln(2 / (5 * x)))

end.