program A;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  fin='text.txt';
  fout='tet.txt';

var
  fi,fo:text;
  mess: array[1..501] of char;
  c:char;
  i, k:integer;

begin
  assign(fi,fin);
  reset(fi);
  i:=1;
  while not eof(fi) do begin
    read(fi,c);
    mess[i]:=c;
    i:=i+1;
  end;
  close(fi);
  for k:=1 to i do begin
  if (ord(mess[k])>158) and (ord(mess[k])<240) then
    mess[k]:=char(ord(mess[k])-32)
  else
    mess[k]:=char(ord(mess[k]));
  end;
  assign(fo,fout);
  rewrite(fo);
  for k:=1 to i do
    write(fo, mess[k]);
  close(fo);
end.