Solução em Pascal do Problema 21

program ContaSegmentos;

var n, anterior, atual, cont, i : Integer;

begin
 readLn(n);
 readLn(anterior);
 cont:=1;
 for i:=2 to n do
  begin
   readLn(atual);
   if atual <> anterior
    then begin
     cont:= cont+1;
     anterior:=atual
    end
 end;
 writeLn(cont)
end.