Дано 15 чисел найти наименьшее через qbasik если можно

For i=1 to 15
input a                               вводим число а
if a>max then max=a
next
? max

Как-то так 
Если хотите сначала числа добавьте в массив и потом циклом проверьте.