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