Введите данную программу и запустите на выполнение.

Даны два числа. Меньшее из этих чисел заменить суммой данных чисел, большее - произведением.

Program zamena;

Var x, y,s,p: integer;

Begin

   Write (‘Введите 2 числа’);

   Readln(x, y);

   S:=x+y; p:=x*y

   If x>=y

   then begin y:=s; x:=p;

   end;

   else begin x:=s; y:=p;

   end;

   writeln (‘x=’, x);

   writeln (‘y=’, y);

end.