Question

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

Answer 1

program vetvlenie;
var a,b,c,d:integer;
begin
 writeln('Введи 2 числа: ');
 readln(a,b);
 c:=a*b;
  if c<0 then d:=c*(-2)
  else 
  d:=c*3;
writeln(d);
end.