Question

1. Составить программу: Если сумма двух чисел положительна, то определить их разность, а в противном случае - произведение (ветвление). Написать программу на паскале!!

Answer 1

Var
  a, b: integer;
 begin
  readln(a, b);
  if(a + b > 0) then write(a - b)
  else write(a * b);
end.