Как составить на языке Паскаль программу вычисления заданной функции y = e ( в степени х + 1.8) + корень пятой степени из ( а - cosх).

Var
  x, a, t, y: real;

begin
  Write(Введите значение аргумента x: );
  Readln(x);
  Write(Введите значение коэффициента a: );
  Readln(a);
  {боремся с неположительным значением под знаком корня}
  t := a - cos(x);
  if t   else if t = 0 then y := exp(x + 1.8)
  else y := exp(x + 1.8) + exp(1 / 5 * ln(t));
  Writeln(Значение функции равно , y)
end.

Тестовое решение:

Введите значение аргумента x: -4.2
Введите значение коэффициента a: 1.95
Значение функции равно 1.28604638457326