Разработать на АЯ алгоритм решения этой задачи: даны два действительных числа 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