VAR
 S:Array[1..4] of String;
 i,N:byte;
 f:Text;
BEGIN
 {$I-}
 N:=0;
 For i:=1 to 4 do
  begin
   writeln('Name[',i,']:');
   readln(S[i]);
  end;
 For i:=1 to 4 do
  begin
   Assign(f,S[i]);
   ReSet(f);
   If IOResult=0 then Inc(N);
  end;
 writeln('N= ',N);
 readln
END.