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

program zz1;




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




begin




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




read(a);  




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




read(b);




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




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




end.