Задача 9 класс. Массивы. Найти произведение элементов соседних с минимальным(5 элементов вводить с клавиатуры)

Program enot;Var a: array [1..5] of integer;i,min,c:integer;beginfor i:= 1 to 5 do read (a[i]);min:=a[1];for i:= 2 to 5 doif a[i]<min then beginif i<>5 then beginmin:= a[i];c:=a[i-1]*a[i+1];endelse c:=0;end;write(c);end.