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

var a,b,n:integer;

begin

  readln(a,b);

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

    else

  writeln(b/a);

end.