Помогите пожалуйста ,срочно , номер 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.