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

var x, y: integer;rez: real;beginwrite('Введите x: ');readln(x);write('Введите y: ');readln(y);rez := sqrt(x*y);writeln('Квадратный корень произведения ', x, ' и ', y, ': ', rez);if x > y then rez := random(X-2) + Yelse rez := random(Y-2) + X;writeln('Случайное число из диапозона [ ', x, '; ', y, ' ): ', rez);rez := int(x / y );writeln('Целая часть от частного Х и Y: ', rez);end.