program FunctionValues;
varx: Real;y: Real;
beginwriteln('Enter the value of x: ');readln(x);
y := 0.5*x - sqrt(x) + 1;
writeln('The value of the function Y = 0.5x - sqrt(x) + 1 is: ', y);
end.
program FunctionValues;
var
x: Real;
y: Real;
begin
writeln('Enter the value of x: ');
readln(x);
y := 0.5*x - sqrt(x) + 1;
writeln('The value of the function Y = 0.5x - sqrt(x) + 1 is: ', y);
end.