Program Exemplo;
Var
  a,b:Integer;
  idade:Integer;
  sexo:Char
  Nome:String;
Begin
  writeln('Nome: ');
  readln(nome);
  writeln('Idade: ');
  readln(idade);
  writeln('Sexo: ');
  readln(sexo);
  if (sexo='M') or (sexo='m')
  then writeln('Hello Mr.',nome,' ',idade)
  else writeln('Hello Mr.',nome,' ',idade);
  readln;
end.