Ввести 2 числа. Если их произведение отрицательно, умножить его на - 2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.

program zz1;

var a, b:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if a * b < 0 / / проверяем, если произведение этих чисел будет отрицательным, то

then write (' произведение двух чисел умноженное на - 2 = ', a * b * - 2) else write (' произведение двух чисел увеличенное на 3 = ', a + b + 3);

/ / выводим ответ в зависимости от правильности условия

end.