Задание #4

uses crt;
var i, m, m1, n, min, s: integer;

begin
 write('кол-во чисел= ');
	readln(n);
	write('m= '); readln(m1);
	min:= m1;
	s:=1;
 for i:=1 to n-1 do begin
    write('m= ');
	   readln(m);

	     if m < min then begin
       min:= m;
       s:=s+1;
       end;

 end;
    writeln;
    writeln('min= ',min);
    writeln('номер ввода: ',s);
end.