program Water;
var s:string;
i:longint;
begin
read(s);
for i:=1 to length(s) do
begin
s[i]:=chr(ord(s[i])-32);
end;
writeln(s);
end.
用FREE PASCAL 作题 从键盘上读入小写的“pascal”，利用CHR（）和ORD（）函数，输出大写的“PASC
program Water;
var s:string;
i:longint;
begin
read(s);
for i:=1 to length(s) do
begin
s[i]:=chr(ord(s[i])-32);
end;
writeln(s);
end.