помогите реолизовать программу в паскале

Question

Надо найти номер последнего вхождения, наименьшего значения последовательности, как написать прогу в паскале ?

Марат Токушев · Accepted Answer

Как задается последовательность? 
 
var 
 n, v, m, cm, c: integer; 
begin 
 write('количество элементов? '); 
 readln(n); 
 write('значения? '); 
 m := high(integer); 
 for c := 1 to n do begin 
 read(v); 
 if v < m then m := v; 
 if v = m then cm := c; 
 end; 
 write('последний минимум имеет номер ', cm); 
end.