Составте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 2 и выводить на экран количество элементов, равных 1

Program exp;var mas:array [1..10] of integer; i:integer;begin for i:=1 to 10 do   begin    mas[i]:=Random(3);    if (mas[i])=1 then    Writeln(i)   end;end.