Помогите создать алгоритм. вводится 3 числа и спомощью алгоритма нужно найти наименьшее

на бэйсике
dim min as integer
dim value (3) as integer
min = value(0)
for i as integer = 0 to 2 do
if min>value(i) then
min = value(i)
end if
next