program in_hoa;
uses crt;
var s:string;
{---Chuong-trinh-con---}
function inhoa(s:string):string;
var i:byte;
begin
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap xau: '); readln(s);
write('Xau in hoa la: ',inhoa(s));
readln;
end.