Помогите составить программу, это срочно!!!
Четвертое задание на фото!!!

vara,b,min,i:integer;beginread(a);min:=0;for i:=1 to (a-2)dobeginread(b);if (b mod 10=6) and ((b<min) or (min=0))thenmin:=b;read(b);end;write(min);end.