Написать программу для вычисления(Pascal)

[xhatex]

Добрый день. В деле пока новичок, буду очень признателен если поможете.

Спасибо!

[masax]

var x,y,a:real;
begin
write('x = ');
readln(x);
if (x < 0) then
begin
  write('a = ');
  readln(a);
  if ((a*a + x) > 0) then
    y = -sqrt(a*a + x);
end
else if (x = 0) then
  y = sqr(cos(x))
else
  y = exp(x);

if (x < 0) and ((a*a + x) < 0) then
  writeln('Error: a*a + x < 0');
else
  writeln('y = ', y);
readln;
end.

[xhatex]

Сообщение от masax

Спасибо большое