mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-18 13:31:28 +02:00
14 lines
146 B
ObjectPascal
14 lines
146 B
ObjectPascal
var
|
|
b : boolean;
|
|
begin
|
|
b:=(true > false);
|
|
if b then
|
|
|
|
writeln('ok 1');
|
|
b:=true;
|
|
b:=(b > false);
|
|
if b then
|
|
|
|
writeln('ok 2');
|
|
end.
|