gukov2014  это в паскале:
for i:=1 to 5 do
 if a[i]<rez then
   rez:=a[i];