var array1: array [1..10] of integer;
a, i: integer;
begin
a:= 0;
for i:= 1 to 8 do begin
if array[i] = a[i + 2] then a = a + 1;
end;
writeln(a);
end.
