pascalabcnet/InstallerSamples/!Tutorial/07_CharString/Char3.pas

// Стандартные функции UpperCase и LowerCase
begin
  var c := 'д';
  Println($'Символ {c} в верхнем регистре: {UpperCase(c)}');
  c := 'F';
  Println($'Символ {c} в нижнем регистре: {LowerCase(c)}');
end.