Question

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

Answer 1

program test;
var a, b: integer;
begin
   write('Enter two numbers: ');
   readln(a, b);
   if a*b < 0 then
      writeln(a*b*(-2))
   else
      writeln(a*b*3);
   readln;
end.