blob: 2c30cf9dca7dd1229936100930b4bf6830616cb9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
/*
* simple if with boolean conditions
*/
module bool_conditions;
var
a, b, c, d : integer;
begin
a := 2;
b := 1;
c := 3;
if ( a > b ) and ( a <= c ) do
d := 42;
else
d := 0;
end
end
|