Задание №25. Вариант 8

// Задание №25. Вариант 8



const n = 5;

var
    a: array [1..n] of integer;
    i, j, min: integer;
begin


    for i := 1 to n do
        readln(a[i]);

    min := 1001;
    for i := 1 to n do
        if ((a[i] > 0) and (a[i] mod 2 = 0) and (a[i] < min)) then min := a[i];

    if (min < 1001) then Writeln (min)
    else Writeln (':(');


    //...
end.