Напишите программу нахождения значения выражения y=(x^2-√xa):|a|. Борланд Паскаль.

Предыдущий
вопрос Следующий
вопрос

program ExpressionValue;

var
x, a, y: real;

begin
// Input values for x and a
write('Enter the value of x: ');
readln(x);

write('Enter the value of a: ');
readln(a);

// Calculate the value of y
y := (sqr(x) - sqrt(x * a)) / abs(a);

// Output the result
writeln('The value of the expression y = (x^2 - sqrt(x * a)) / |a| is: ', y:0:2);

end.