blob: 232d4760924fff97f744b3a0cef406dfa2fa5126 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
{ Old file: tbs0202.pp }
{ flag results not supported with case OK 0.99.11 (PFV) }
program silly;
var greater : boolean;
procedure error;
begin
Writeln('Error in tbs0202');
Halt(1);
end;
procedure compare(i,j : integer);
begin
case (i>j) of
true : begin
greater:=true;
end;
false : begin
greater:=false;
end;
end;
end;
begin
compare(45,2);
if not greater then
error;
compare(-5,26);
if greater then
error;
end.
|
