Помогите пожалуйста ,срочно , номер 30 !

var
 n, k: integer;
 a, b, i: integer;
 
begin
 read(n);
 k := 0;
 read(a);
 for i := 2 to n do
   begin
   read(b);
   if (a = 2) and (b = 2) then
   k := k + 1;   
   a := b
   end;
 writeln(k)
end.