5. определите и выведите на экран числа от 100 до 500, которые делятся на 8 и 11 одновременно.

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
range(100,500).Where(x->(x mod 8=0) and (x mod 11=0)).Println();
end.

Var
  i:integer;

begin
  for i:=100 to 500 do
    if i mod 88 = 0 then Write(i,' ')
end.

Результат
176 264 352 440