Составить программу вычислениязначения функции по формуле: Y= √X+5+√5X-4. (Учесть, что подкоренные выражения не должны принимать отрицательные значения) Надо сделать в паскале абц пожалуйста.(√- это корень).

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.