program r(input,output); var ch :char; i:integer; line : array [1..80] of char; j :integer; begin j:=1; read(trm,ch); while ch<> ' ' do begin line[j]:=ch; j:=j+1; read(trm,ch); end; readln; for j:=1 to length(line) do line[j]:=upcase(line[j]); writeln(line); end.