Составьте программку вычисления в массиве А (10), заполненном случайными числами из

var
   i, n: integer;                           // объявляем переменные целочисленного типа.
   arr: array [1..10] of integer;    // объявляем массив.
   s : string;                              // объявляем переменную строкового типа.
begin
   for i := 1 to 10 do                  // начало цикла.
       begin
          arr[i] := random(0, 10); // наполняем массив случайными числами из диапазона 0; 10.
          s := s + inttostr (arr[i])+    // записываем массив в строку;
          if arr[i] lt; 5 then n := n + 1; // считаем количество  элементов наименьших пяти.
       end;
   writeln (Массив: , s);   // вывод на экран массива.
   writeln(Количество элементов, наименьших 5: , n);  // вывод на экран значение переменной n.
end.