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

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