uses crt;

var s, n : string; i, j, k, d, cs, m : byte;

    A : array [1 .. 255] of string;

function XX (x : byte) : string;

    begin

        XX := '';

        for j := x to length(S) do

            if S[j] in ['0' .. '9'] then XX := XX + S[j]

            else break;

    end;

begin

clrscr;

write('Nhap 1 xau : '); readln(s);

i := 1; k := 0;

while i <= length(S) do

    if S[i] in ['0' .. '9'] then

        begin

            k := k + 1;

            A[k] := XX(i);

            i := i + length(A[k]);

        end

    else i := i + 1;

j := length(A[1]); d := 0;

for i := 2 to k do

    if length(A[i]) > j then

        begin

            j := length(A[i]);

            m := i;

        end;

n := A[m];

for i := 1 to k do

    if length(A[i]) = j then

            if A[i] > n then n := A[i];

for i := 1 to k do

    if A[i] = n then

        begin

            d := d + 1;

            cs := i;

        end;

writeln('Day so lon nhat : ', A[cs]);

writeln('So luong : ', d);

readln

end.