n=20
Dim x(n) 
For i=1 to n
Input x(i)
Next i
Max=-1000
For i=1 to n
If x(i)>max then max=x(i)
next i
for i=1 to n
if x(i)=max then x(i)=0
print x(i)
next i
end