mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 23:30:39 +01:00
13 lines
229 B
ObjectPascal
13 lines
229 B
ObjectPascal
Program Example73;
|
|
|
|
{ Program to demonstrate the Lowercase function. }
|
|
|
|
Var I : Longint;
|
|
|
|
begin
|
|
For i:=ord('A') to ord('Z') do
|
|
write (lowercase(chr(i)));
|
|
Writeln;
|
|
Writeln (Lowercase('ABCDEFGHIJKLMNOPQRSTUVWXYZ'));
|
|
end.
|