Question

Помогите пожалуйста.
(Программа паскаль)

Answer 1

var a,b,n:integer;

begin

  readln(a,b);

  if (a+b) mod 2 = 0 then writeln (a*b)

    else

  writeln(b/a);

end.