Опишите множества M1(1,2) и M2(2,1). Сравните их на равенство — Pascal(Паскаль)

program zadacha1;
uses crt;
const M1=[1,2];
M2=[2,1];
begin clrscr;
if M1=M2 then writeln('множество М1 равно множеству М2')
else writeln('Множество М1 неравно множеству М2');
readln;
end.