Question

Напишите программу на Паскале для решения следующей задачи. Даны два числа A и B, которые не равны друг другу. Большее из этих чисел нужно заменить половиной разности этих двух чисел, а меньшее — их удвоенным произведением. Значения A и B задать самостоятельно с клавиатуры. На проверку нужно прислать скриншот окна программы на Паскале с результатом работы.
Помогите пожалуйста, очень надо)))))))

Answer 1

##

var (a, b) := ReadReal2;

if a > b then

 Swap(a, b);

(a, b) := (2 * a * b, (a - b) / 2);

Print(a, b)