Помогите пожалуйста написать программу на алгоритмическом языке ФОРТРАН.

integer,parameter ::m=10
integer x,a(m)
x=13
read (*,*) a
print *,a
do i=1,m
if (a(i).lt.X) a(i)=X
end do
print *,a
end