function geradeoderungerade()
  x = input('x = ');
  gerade(x);
end

function gerade(x)
  if (mod (x,2) == 0)
    disp('Gerade!');
  else
    ungerade(x);
  end
end

function ungerade(x)
  if ( mod(x,2) != 0)
    disp('Ungerade!');
  else
    gerade(x);
  end
end