Спасайте.:зх
Одномерный массив из 6 элементов с номерами от 4 до 9 заполнить случайным образом числами от 1 до 10. Все элементы массива,значения которых меньше 5,уменьшить на единицу.Вывести на экран монитора первоначальный и преобразованный массивы в сточку.

vara: array [4..9] of longint;q:longint;beginfor q:=4 to 9 dobegina[q]:=random(10)+1;write(a[q],' ');end;writeln();for q:=4 to 9 dobeginif a[q]<5 then a[q]:=a[q]-1;write(a[q],' ');end;end.