MAHOA PASCAL

var     s:string;
       i,j,n,t:longint;

procedure nhap;
begin
    readln(s);
end;

procedure giai;
begin
   for i:=1 to length(s) do
       if ('0'<=s[i]) and (s[i]<= '9')then
        s[i]:= chr(ord(s[i])+48);
       else
        s[i]:= upcase(s[i])
      write(s);
end;

begin
    assign(input, 'mahoa.inp');reset(input);
    assign(output, 'mahoa.out');rewrite(output);
    nhap;
    giai;
    close(input);close(output);
end.