Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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)
  else Writeln(3*a*b)
end.