Pascal. из трех заданных чисел выбрать наименьшее четное

var

 a: array [1..3] of Integer;

 i, imin: Integer;

begin

 for i := Low (a) to High (a) do begin

   Write (i, ' число: ');

   ReadLn (a [i]);

 end;

 imin := 0;

 for i := Low (a) to High (a) do begin

   if a [i] mod 2 = 0 then

     if imin = 0 then

       imin := i

     else if a [i] < a [imin] then

       imin := i;

 end;

 if imin <> 0 then

   WriteLn ('Наименьшее четное = ', a [imin])

 else

   WriteLn ('Четных чисел нет.');

 ReadLn;

end.