mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:28:55 +02:00
16 lines
211 B
ObjectPascal
16 lines
211 B
ObjectPascal
{ %norun }
|
|
{ %opt=-O- }
|
|
type
|
|
te = (gtNone,gtRadial,gtDiamond,gtAngular);
|
|
ts = set of te;
|
|
|
|
var
|
|
gt1,gt2 : te;
|
|
|
|
begin
|
|
writeln;
|
|
if not ([gt1,gt2] <= [gtRadial,gtDiamond,gtAngular]) then
|
|
writeln;
|
|
end.
|
|
|