Решите пожалуйста)) Паскаль: 
 в одномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов, удовлетворяющих условию A[i]>=5

constn=10;vara:array[1..n]of integer;i:integer;begin  for i:=1 to n do     read(a[i]);for i:=1 to n do    if a[i]>5 then       a[i]:=100;for i:=1 to n do   write(a[i]:4);end.