Ввести 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.