fpcdocs/sysutex/ex87.pp


1
2
3
4
5
6
7
8
9

Program Example87;

{ This program demonstrates the UpperCase function }

Uses sysutils;

Begin
  Writeln (UpperCase('this will come OUT ALL uPpErCaSe !'));
End.