mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:49:33 +02:00
14 lines
149 B
ObjectPascal
14 lines
149 B
ObjectPascal
{ %OPT=-Sew }
|
|
program a;
|
|
uses types;
|
|
|
|
var b:longbool;
|
|
|
|
begin
|
|
b:=false;
|
|
case b of
|
|
true: writeln('True');
|
|
false: writeln('False');
|
|
end;
|
|
end.
|