mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 17:28:05 +02:00
17 lines
241 B
ObjectPascal
17 lines
241 B
ObjectPascal
|
|
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.
|
|
|