program ExpressionValue;
vax, a, y: real;
begi// Input values for x and write('Enter the value of x: ')readln(x);
write('Enter the value of a: ')readln(a);
// Calculate the value of y := (sqr(x) - sqrt(x * a)) / abs(a);
// Output the resulwriteln('The value of the expression y = (x^2 - sqrt(x * a)) / |a| is: ', y:0:2);
end.
program ExpressionValue;
va
x, a, y: real;
begi
// Input values for x and
write('Enter the value of x: ')
readln(x);
write('Enter the value of a: ')
readln(a);
// Calculate the value of
y := (sqr(x) - sqrt(x * a)) / abs(a);
// Output the resul
writeln('The value of the expression y = (x^2 - sqrt(x * a)) / |a| is: ', y:0:2);
end.