mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 01:30:28 +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.
|