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

var a:array[1..10] of integer;      i,count:integer;beginfor 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.