Задать различными способами множество М всех чисел, являющихся степенями двойки: 2, 4, 8, 16,…, не превышающих 255? — Pascal(Паскаль)

program sp2;
type
   Un=set of 1..255; 
var
   M:Un;
   x: Integer;
begin
   x:=2;
   while x<=255 do
   begin
          include(M,x);
          x:=x*2;
   end;
   for x:=1 to 255 do  
          If x in M then writeln(x); 
end.