Даны X, У. Найти квадратный корень из произведения X и У, вычислить случайное число в диапазоне [X, У), получить целую часть от частного X и У. Составит программу на языке Паскаль

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

program MathOperations;

var
X, Y, SquareRoot, RandomNumber, DivisionResult: real;

begin
randomize;

write('Enter X: ');
readln(X);

write('Enter Y: ');
readln(Y);

SquareRoot := sqrt(X Y);
RandomNumber := X + random (Y - X);
DivisionResult := trunc(X / Y);

writeln('Square root of product of X and Y: ', SquareRoot:0:2);
writeln('Random number in range [X, Y): ', RandomNumber:0:2);
writeln('Integer part of the quotient of X and Y: ', DivisionResult:0:0);
end.