Составьте программку ввода с клавиатуры частей массива a 1..10 случайными целыми

// Пример программки на языке Паскаль.

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