fpcdocs/refex/ex73.pp


1
2
3
4
5
6
7
8
9
10
11
12

program Example73;

{ Program to demonstrate the Lowercase function. }

var c:char;

begin
  for c:='A' to 'Z' do
    write(lowercase(c));
  Writeln;
  Writeln(Lowercase('ABCDEFGHIJKLMNOPQRSTUVWXYZ'));
end.