Одномерный массив из 9 элементов заполнить случайным образом числами от 2 до 7. Заменить все элементы массива меньше 5 нулями. Вывести на экран монитора первоначальный и преобразованный массивы в столбик.

pascalABC.net var    i:integer;   a:array[1..9]of integer; begin writeln('Исходный массив:'); for i:=1 to 9 do   begin   a[i]:=random(2,7);   writeln(a[i]);   end; for i:=1 to 9 do   if a[i]<5 then a[i]:=0; writeln('Преобразованный массив:');   for i:=1 to 9 do   writeln(a[i]); end.