RosettaCodeData/Task/String-case/Delphi/string-case.pas

3 lines
66 B
ObjectPascal

writeln(uppercase('alphaBETA'));
writeln(lowercase('alphaBETA'));