Code Corona

var
stg : string;
procedure upper(s: string);
var i : integer;
begin
for i := 1 to Length(s) do
s[i] := UpCase(s[i]);
WriteLn('Here it is in all uppercase: ',s);
end;
begin
write('Enter a string: ');
readln(stg);
upper(stg)
end.