Код программы:
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.
