blob: 3dc17356beb453dbb669565e0a86a5418efd7a91 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
program Example72;
{ Program to demonstrate the upcase function. }
var c:char;
begin
for c:='a' to 'z' do
write(upcase(c));
Writeln;
{ This doesn't work in TP, but it does in Free Pascal }
Writeln(upcase('abcdefghijklmnopqrstuvwxyz'));
end.
|
