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

var ar:array[1..10] of integer;i,k:integer;begin;randomize;writeln('Array:');for i:=1 to 10 dobegin;ar[i]:=random(3);write(ar[i]:4);if ar[i]=1 then inc(k);end;writeln;writeln(k);end.