Question

пользователь вводит два числа если большее кратно меньшему то найдите их сумму в противном случае найдите их частное

Answer 1

var a,b:integer;

Begin

  read(a,b);

  if ((a>b) and (a mod b = 0))

    or ((b>a) and (b mod a = 0)) then writeln(a+b)

  else writeln(a-b);

End.