mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 00:08:12 +02:00
15 lines
193 B
ObjectPascal
15 lines
193 B
ObjectPascal
type
|
|
days = (mon,tue,wed,thu,fri,sat,sun);
|
|
weekend = sat..sun;
|
|
|
|
procedure t2(day: weekend);
|
|
begin
|
|
if day = sat then
|
|
writeln('ok')
|
|
else writeln('error');
|
|
end;
|
|
|
|
begin
|
|
t2(sat);
|
|
end.
|