Правила форума
Language:
Русский
English
{StrUpper.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the StrUpper function.}
uses Strings, WinCrt;
var
S: array[0..79] of Char;
begin
Readln(S);
Writeln(StrUpper(S));
Writeln(StrLower(S));
end.
 StrUpper.PAS |
::
::
::
