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

Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var a,b:integer;
  Write('Введите a и b: '); Read(a,b);
  if a*b<0 then Writeln(-2*a*b)<br>  else Writeln(3*a*b)
end.