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

pascalABC.netvar   i:integer;  a:array[1..9]of integer;beginwriteln('Исходный массив:');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.