blob: 9aca609e05b5af04245093b9225c9c916cd641ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
type
Days = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
Weekdays = Mon..Fri;
Weekend = Sat..Sun;
begin
WriteLn('Days ', Ord(Low(Days)) , Ord(High(Days)) :2);
WriteLn('Weekdays ', Ord(Low(Weekdays)), Ord(High(Weekdays)):2, ' should be 4!');
WriteLn('Weekend ', Ord(Low(Weekend)) , Ord(High(Weekend)) :2);
if ord(high(weekdays))<>4 then
begin
writeln('ERROR!');
Halt(1);
end;
end.
|
