const SZ = 100;
type mas= array[1..SZ]  of integer;

function FindMin(const a:mas; n, min, i: integer): integer;
begin
    if a[i] < min then
        min := a[i];
    if i = n then begin
        FindMin := min;
    end
    else begin
        i := i+1;
        FindMin := FindMin(a, n, min, i);
    end;
end;

var
    a: mas;
    N: integer;
    i: integer;
    min: integer;
    j: integer;

begin
    writeln('Введите размер массива: ');
    readln(N);
    writeln('Введите элементы массива: ');
    for j := 1 to N do
        read(a[j]);
    min := a[1];
    i := 2;
    write('Минимальный элемент массива: ');
    min := FindMin(a, n, min, i);
    writeln(min);
end.