Программная реализация ветвящихся алгоритмов. 1. создать программу для решения согласно варианту: заданы числа a и b. если a положительное, то найти их произведение и вывести в формате «произведение чисел … и … равно …», в остальных случаях найти сумму и вывести в формате «сумма чисел … и … равна …».
var
a, b: integer;
Begin
Readln(a, b);
if (a > 0) then
Writeln('Произведение чисел ', a, ' и ', b, ' равно ', a * b)
else
Writeln('Сумма чисел ', a, ' и ', b, ' равна ', a + b);
end.