program xxx; uses crt; var ch:char; BEGIN clrscr; read(ch); while ch<>#13 do begin if (ch>='a') and (ch<='z') then write(upcase(ch)) else write(ch); read(ch); end; readln; END.