{* Задача 447 *}

Unit ZADACH447;
Interface
Implementation
Begin
 writeln('Дано натуральное число К, за которым следует К вещественных чисел. Найти наименьшее число среди положительных (min1) и порядковый номер максимального числа (n_max). А также найти min1*n_max.');
End.

Program zadach447;

Uses zadach447.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  k     : integer;
  i     : integer;
  n_max : integer;
  max   : real;
  min1  : real;
  a     : real;
  c     : real;
Begin
  writeln ('Введите k');
  readln (k);
  min1 := k;
  max := k;
  For i := 1 To k Do {* Переменная i увеличивается с 1 до k *}
  Begin
    writeln ('Введите числа');
    readln (a);
    If (a > 0) And (amax Then
    Begin
      max := a;
      n_max := i;
    End;
    
  End;
  c := n_max * min1;
  writeln ('c=', c, ' n_max=', n_max, ' min1=', min1);
End.