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