решить 2 и 3 задачу в Паскале абц

Код программы:

var Y, X:real;

begin

 writeln('Введите X');

 readln(X);

 if X < 0 then

   writeln('Ошибка, число под корнем не может быть отрицательным')

 else begin

   Y:= sqrt(X) + 5 + sqrt(5) * X - 4;

   writeln('Y = ', Y);

 end;

end.