написать программу которая заполняет массив (размера 10) случайными числами в диапозоне от 0 до 100 и выводит на экран элементы краткие числу К

vari,k:integer;mas:=array [1..10] of integer;beginrandomize;for i:=1 to 10 domas[i]:=random(100);readln(k);for i:= 1 to 10 doif mas[i] mod k = 0 thenwriteln(mas[i]);end.