{* Задача 466 *}

Unit ZADACH466;
Interface
Implementation
Begin
 writeln('Дано 2 файла вещественных чисел a1.txt и a2.txt. Найти количество нулевых элементов в двух файлах.');
End.

Program zadach466;
Var a1,a2:text; k1,k2:integer; x1,x2:real;
Begin
  assign(a1,'a1.txt');
  assign(a2,'a2.txt');
  reset (a1);
  reset (a2);
  k1:=0;
  k2:=0;
  While Not eof (a1) Do
  Begin
    readln (a1,x1);
    writeln ('x1=',x1);
    If x1=0 Then
      k1:=k1+1;
  End;
  While Not eof (a2) Do
  Begin
    readln (a2,x2);
    writeln ('x2=',x2);
    If x2=0 Then
      k2:=k2+1;
  End;
  writeln ('k=',k1+k2);
  close (a1);
  close (a2);
End.