mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-16 09:42:42 +02:00
14 lines
278 B
ObjectPascal
14 lines
278 B
ObjectPascal
Program Example72;
|
|
|
|
{ Program to demonstrate the Upcase function. }
|
|
|
|
Var I : Longint;
|
|
|
|
begin
|
|
For i:=ord('a') to ord('z') do
|
|
write (upcase(chr(i)));
|
|
Writeln;
|
|
{ This doesn't work in TP, but it does in Free Pascal }
|
|
Writeln (Upcase('abcdefghijklmnopqrstuvwxyz'));
|
|
end.
|