Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: А и В. Если числа не равны, то замените каждое из них большим и выведите результаты на экран. Если они равны, то найдите и выведите удвоенную сумму этих чисел.

Для решения задачи необходимо рассмотреть все возможные варианты результатов сравнения заданных чисел a и b: a b. Поскольку каждый вариант подразумевает различные вычислительные операции, будем использовать в решении организацию вычислительных альтернатив с помощью структуры ветвления.

Program MyTears;

Var a, b:real;

begin

Write ('Введите два числа А и В через пробел - >'); Readln (a, b);

if a=b then writeln ('Данные числа равны, ', (a+b) * 2) else

if a>b then b:=a else a:=b;

writeln ('Результаты обработки числовой информации: a=', a, ' b=', b);

end.