Записать в массив 100 случайных целых чисел от 22 до 200 и вывести на экран все элементы массива, кратные 5.

// PascalABC.NET 3.0, сборка 1076 begin   var a:=ArrRandom(100,22,200);   Writeln('Исходный массив:',#13#10,a);   Write('Элементы массива, кратные пяти: ');   a.Where(x->x mod 5 = 0).Println; end. Тестовое решение: Исходный массив: [109,130,69,32,86,164,37,55,60,140,25,23,111,23,24,125,23,46,50,30,44,112,92,183,87,51,148,200,56,164,154,177,56,200,130,145,53,196,101,198,162,56,155,30,55,144,40,200,188,182,75,119,25,183,148,198,59,86,145,56,37,38,200,96,187,48,167,112,93,80,94,28,146,52,68,188,158,84,150,144,33,149,33,75,110,57,174,73,73,133,107,167,73,66,183,146,57,80,44,28] Элементы массива, кратные пяти: 130 55 60 140 25 125 50 30 200 200 130 145 155 30 55 40 200 75 25 145 200 80 150 75 110 80

Для классического варианта Паскаля: Var m : array[1..100] of Integer; i : Integer; Begin   For i:=1 to 100 do   Begin     m[i]:=Random(179)+22;     If m[i] mod 5 = 0 then Writeln(m[i]);   end; end.