Минимальное значение в последовательности.

[Cam_Wexler]

Пожалуйста, помогите решить задачку:

Нахождение минимального значения из чисел, кратных трем, среди последовательности вводимых чисел.
Остановить обработку ри вводе заказанного количества чисел. Тип обраб. данных - целые.

На днях надо сдавать, но я никак не могу разобраться в этом

[XTen]

Не совсем понял задание напиши сюда ICQ: 410-691-984 обсудим и если что решу за небольшую плату

[dr.Jekill]

[syntax="pascal"]
uses crt;
var chislo,min,i,n:integer;
fl:boolean;
begin
clrscr;
writeln('Zadaite kol-vo chisel: ');
readln(n);
fl:=false;
i:=0;
clrscr;
repeat
inc(i);
write('#',i,': ');
readln(chislo);
if chislo mod 3 = 0 then
if fl=true then
begin
if chislo<=min then min:=chislo;
end
else
begin
min:=chislo;
fl:=true;
end;
until i=n;
writeln('Min= ',min);
readln;
end.
[/syntax]