Даны 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.