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

Question

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

Answer 1

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

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