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

// PascalABC.NET 3.0, сборка 1076begin  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.