program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  { TODO -oUser -cConsole Main : Insert code here }

  var
    m,               //duotasis skaitmuo
    i,j,               //skaičių sekos narys
    n,               //skaičių sekos nario skaitmuo
    k1,k2:longint;
begin
Writeln('Darbo pabaiga, kai m yra lygus 0.');
writeln('');
  WriteLn('Iveskite skaciu m: ');
  readln(m);
  writeln('iveskite sekos nari: ');
  readln(i);

  while i <> 0 do
  begin
  writeln('iveskite sekos nari: ');
  readln(i);
  n:=i;

    while n <> 0 do begin
    j:= n mod 10;
    if j=m then k1:=k1+1;

    n:= n div 10;

    end;
    if k1 = 2 then k2:=k2+1;
  end;
  writeln('Skaicius ', m,' du kartus skaiciu sekos skaiciuose pasikartoja ');
  writeln(k2,' skaiciuose.');
  Readln;
end.