procedure case_convert_char(var ch : char);
  begin
    ch := chr(ord(ch) - ord('a') + ord('A'));
  end;

procedure lower_to_upper(var ch : char);
  begin
    if (ch >= 'a') and (ch <= 'z') then
      case_convert_char(ch)
  end;

procedure test_char_convert;
  var ch : char;
  begin
    readln(ch);
    lower_to_upper(ch);
    writeln(ch)
  end;

procedure case_convert_string(var str : string);
  var
    i : integer;
  begin
    i := 1;
    while i <= length(str) do
      begin
        lower_to_upper(str[i]);
        i := i + 1
      end
  end;

procedure test_string_convert;
  var str : string;
  begin
    readln(str);
    case_convert_string(str);
    writeln(str)
  end;

begin
  {test_char_convert;}
  test_string_convert;
end.