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

Var a:array[1..10] of integer;
      i,count:integer;
begin
for i:=1 to 10 do begin
  a[i]:=1+random(10);
  write(a[i], );
end;
count:=0;
for i:=1 to 10 do begin
  if a[i]=1 then
    count:=count+1;
end;
writeln(Кол-во элементов равных единице=, count);
end.