Для промежутка [1,255] построить множество чисел, кратных 11, используя такое свойство: если суммы цифр, стоящие на четных и на нечетных местах числа одинаковы, тогда все число делится на 11 — Pascal(Паскаль)

Program PascalGuru;

var
  i: integer;
  cet, nec: integer;

begin
  for i := 1 to 255 do
  begin
    if i < 100 then
      if (i div 10) = (i mod 10) then
        writeln(i);
    if i > 100 then
    begin
      nec := i div 100 + i mod 10;
      cet := (i mod 100) div 10;
      if nec = cet then
        writeln(i);
    end;
  end;

end.