mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 15:47:52 +02:00
17 lines
271 B
ObjectPascal
17 lines
271 B
ObjectPascal
var c:byte;
|
|
|
|
Procedure a(b:boolean);
|
|
|
|
begin
|
|
if b then writeln('TRUE') else writeln('FALSE');
|
|
end;
|
|
|
|
begin {main program}
|
|
a(true); {works}
|
|
a(false); {works}
|
|
c:=0;
|
|
a(c>0); {doesn't work}
|
|
a(c<0); {doesn't work}
|
|
a(c=0);
|
|
end.
|