ребята спасайте!!! pascal

Question

5. Ввести с клавиатуры последовательность из 12 целых чисел. Найти и вывести на экран минимальное число последовательности. Массивы не использывать. 
программа нужна!

Максим Керкин · Accepted Answer

writeln(введите первое число) 
readln(x) 
c=x 
for i=1 to 12 do 
 { writeln(введите следующее число) 
 readln(x) 
 if x < c c=x 
} 
writeln (наименьшее число, c)

Kuba Mamitov · Answer

Боже, как я хочу тебя спасти

Айгиз · Answer

кидаю надувной круг греби до берега

Юлия · Answer

var min,i,chislo:integer 
begin 
min:=0; 
for i:=0 to 15 do begin 
readln(chislo); 
if min>chislo then min:=chislo; 
end; 
Writeln(min); 
end.