{Винарский 16_19_а}
type
str=packed array [1..10] of char;
list=^node;
node=record
      elem: str;
      next: list
     end;

function kol(L: list): integer;
var k: integer; p: list;
  begin
    k:=0;
    while(L<>nil) do
      begin
        if(L^.elem[1]=L^.elem[10]) then k:=k+1;
        L:=L^.next;
      end;
   kol:=k;
  end;