\begin{array}{c} \color{blue}{\texttt{#newborn}} \end{array}

var s,ans1,temp: string;
    ans2,count,i: integer;
begin
    write('Xau ky tu la: '); readln(s);
    ans1:=''; temp:=''; ans2:=0; count:=0;
    for i:=1 to length(s) do begin
        if s[i] in ['0'..'9'] then begin
            count:=count+1;
            temp:=temp+s[i];
        end;
        if (s[i+1]<'0') or (s[i+1]>'9') then begin
            if count>ans2 then begin
                ans2:=count;
                ans1:=temp;
            end;
            count:=0;
            temp:='';
        end;
    end;
    writeln('So lan lien tiep nhieu nhat: ',ans2);
    write('Day so lien tiep nhieu nhat: ',ans1);
end.

$\color{#23d78c}{\texttt{P}}\color{#9ee36f}{\texttt{y}}\color{#10c1ed}{\texttt{t}}\color{#10c1ed}{\texttt{h}}\color{#c6ea64}{\texttt{o}}\color{#fbfb45}{\texttt{n}}$

import re
s = max(re.findall('[0-9]+', input('Xau ky tu la: ')), key=len)
print('So lan lien tiep nhieu nhat:', len(s))
print('Day so lien tiep nhieu nhat:', s)

# Author : Daoanhviet96
# Language : Python3

$\\$
\begin{array}{c|c|c}\color{#ffd710}{\texttt{\{}} \color{#8655d6}{\texttt{\{}}\ \ \color{#8cdcda}{\text{Daoanhviet96}}\ \ \color{#8655d6}{\texttt{\}}} \color{#ffd710}{\texttt{\}}}\end{array}