mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 21:08:26 +02:00
16 lines
248 B
ObjectPascal
16 lines
248 B
ObjectPascal
var
|
|
c,u: char;
|
|
s,t: string[6];
|
|
begin
|
|
c := 'x';
|
|
u := UpCase(c);
|
|
s := UpCase(c);
|
|
t := u;
|
|
writeln('c = "',c,'"');
|
|
writeln('u = "',u,'"');
|
|
writeln('s = "',s,'"');
|
|
writeln('t = "',t,'"');
|
|
if (s='') or (t='') then
|
|
halt(1);
|
|
end.
|