Правила форума
UpCase.PASLanguage:
Русский
English
{UpCase.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the UpCase function.}
uses WinCrt;
var
s : string;
i : Integer;
begin
Write('Enter a string: ');
Readln(s);
for i := 1 to Length(s) do
s[i] := UpCase(s[i]);
Writeln('Here it is in all uppercase: ',s);
end.
::
::
::
