Разработать на АЯ алгоритм решения этой задачи: даны два действительных числа X и Y, не равные друг другу. Замените меньшее из этих чисел их произведением.

Алгоритм: сравниваете x с y, если x>y, то y присваиваете значение x*y,

иначе x присваиваете значение x*y

На паскале

var x, y: real;

begin

write ('x y через пробел: ') ; readln (x, y) ;

write ('результат: ') ;

if x>y then y:=x*y

else x:=x*y;

writeln (x,' ', y) ;

end.

Ввод - вывод:

x y через пробел: 21 15 результат: 21 315