mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:49:34 +02:00
18 lines
258 B
ObjectPascal
18 lines
258 B
ObjectPascal
{ %version=1.1 }
|
|
|
|
uses sysutils;
|
|
Var I : Longint;
|
|
a:char;
|
|
|
|
begin
|
|
a:='A';
|
|
a:=upcase(a); //OK
|
|
|
|
Writeln;
|
|
Writeln (Lowercase('ABCDEFGHIJKLMNOPQRSTUVWXYZ')); //OK
|
|
Writeln (Lowercase(A)); // OK
|
|
a:=Lowercase(A); // ERROR
|
|
Writeln (a);
|
|
end.
|
|
|