В сообщающихся сосудах находятся ртуть, вода и керосин (рис. 150). Какова высота слоя керосина, если высота

var a:array[1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write('Vvedite a[',i,'] = ');
readln(a[i]);
min:=a[1];
end;
for i:=1 to 5 do if a[i]<min then min:=i;
for i:=1 to 5 do begin
if (a[i] mod 2 = 0) then if i<min then a[i]:=0;
end;
for i:=1 to 5 do write(a[i]);
end.