mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
17 lines
460 B
ObjectPascal
17 lines
460 B
ObjectPascal
program test;
|
|
|
|
var
|
|
wa, ws : set of 1..9;
|
|
begin
|
|
wa := [1..2];
|
|
ws := [1..3];
|
|
if (wa <= ws) and (wa <> ws) then writeln('True') else begin writeln('False'); halt(1) end;
|
|
if (wa <= ws) then
|
|
if (wa <> ws) then writeln('True') else begin writeln('False'); halt(2); end
|
|
else halt(3);
|
|
if (wa <= ws) then writeln('True') else begin writeln('False'); halt(4); end;
|
|
if (wa <> ws) then writeln('True') else begin writeln('False'); halt(5); end;
|
|
|
|
end.
|
|
|