// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin var a:=ArrRandom(10,1,2000); a.Println; a.Where(x->x.InRange(100,999) and (x mod 5=0)).Printlnend.Пример1337 1824 163 415 330 1865 180 1695 539 551415 330 180
program test;vararr:=ArrRandom(10,1,2000);a,b,i: integer;beginfor i:=0 to 9 doif (arr[i] div 100 > 0) and (arr[i] div 100 < 10) and (arr[i] mod 5 = 0) thenwrite(arr[i]+' ');end.