ЗАПОЛНИТЬ МАССИВ С ИЗ 15 ЭЛЕМЕНТОВ СЛЕДУЮЩИМ ОБРАЗОМ: ПЕРВЫЕ ПЯТЬ ЭЛЕМЕНТОВ ВВЕСТИ С КЛАВИАТУРЫ ОСТАЛЬНЫЕ ЦЕЛЫМИ СЛУЧАЙНЫМИ ЧИСЛАМИ ИЗ ИНТЕРВАЛА [-6..6] МАССИВ РАСПЕЧАТАТЬ В СТРОЧКУ НАЙТИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ КРАТНЫЙ ТРЕМ.

1 2 3 4 5 6 7 8 9 10 11 12 program fpro; var a : array[1..10] of integer; i : integer; begin randomize; for i :=1 to 10 do begin   a[i] := random(1,20);   if (a[i] > 5) and (a[i] < 15) then writeln(a[i]); end; end