blob: a6c99cd23a7ae7fcb98aec67ded6f463272e3eff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ Source provided for Free Pascal Bug Report 2767 }
{ Submitted by "Jakub Cernohorsky" on 2003-11-06 }
{ e-mail: cernoj@fit.vutbr.cz }
var a:integer;
err:boolean;
begin
a:=25;
case a of
-10..0:writeln('-10..0');
31:writeln('31');
32..38:begin
writeln('32-38');
err:=true;
end;
66:writeln('66');
end;
if err then
halt(1);
end.
|
