Ввести 2 числа. Если их творенье отрицательно, помножить его на -2

program zz1;

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

begin

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

read(a);  

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

read(b);

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

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

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

end.