Nguyễn Trung Hiếu

var    d:longint;
        s1,s2:string;
procedure xuli;
var    o,i,j:longint;
begin
        d:=0;
        for i:=1 to length(s1) do
        begin
                o:=0;
                for j:=1 to length(s2) do if s1[i+j-1]<>s2[j] then o:=1;
                if o=0 then d:=d+1;
        end;
end;
begin
        assign(input,'demxau.inp');reset(input);
        assign(output,'demxau.out');rewrite(output);
        readln(s2);
        readln(s1);

        xuli;
        write(d);
        close(input);close(output);
end.

var    o:boolean;
        s:string;
procedure xuli;
var    n,i:longint;
begin
        o:=true;n:=length(s);
        for i:=1 to (n div 2) do if s[i]<>s[n-i+1] then o:=false;
end;

begin
        assign(input,'xaudoixung.inp');reset(input);
        assign(output,'xaudoixung.out');rewrite(output);
        readln(s);
        xuli;
        write(o);
        close(input);close(output);
end.

var    s:string;
procedure xuli;
var    i:longint;
begin
        while s[1]=' ' do delete(s,1,1);
        while s[length(s)]=' ' do delete(s,length(s),1);
        for i:=1 to length(s) do if s[i]=' ' then while s[i+1]=' ' do delete(s,i+1,1);
end;
begin
        assign(input,'chuanhoaxau.inp');reset(input);
        assign(output,'chuanhoaxau.out');rewrite(output);
        readln(s);

        xuli;
        write(s);
        close(input);close(output);
end.

var    s:string;
        fx:array [0..1000] of longint;
procedure xuli;
var    i:longint;
begin
        for i:=1 to length(s) do fx[ord(s[i])]:=fx[ord(s[i])]+1;
        for i:=0 to 255 do if fx[i]<>0 then writeln(chr(i),' ',fx[i]);
end;
begin
        assign(input,'demppxau.inp');reset(input);
        assign(output,'demppxau.out');rewrite(output);
        readln(s);

        xuli;
        close(input);close(output);
end.

var    s:string;
procedure xuli;
var    d,i,t:longint;
        x:string;
begin
        x:='';
        for i:=1 to length(s) do
        begin
                t:=ord(s[i]);
                if (t>=48) and (t<=57) then x:=x+s[i] else if x<>'' then
                begin
                        writeln(x);
                        x:='';
                end;
        end;

end;
begin
        assign(input,'tachsotrongxau.inp');reset(input);
        assign(output,'tachsotrongxau.out');rewrite(output);
        readln(s);

        xuli;
        close(input);close(output);
end.

uses math;
var    s:string;
        res:longint;
procedure xuli;
var    d,i,t:longint;
        x:string;
begin
        x:='';
        for i:=1 to length(s) do
        begin
                t:=ord(s[i]);
                if (t>=48) and (t<=57) then x:=x+s[i] else if x<>'' then
                begin
                        val(x,t);
                        res:=max(res,t);
                        x:='';
                end;
        end;

end;
begin
        assign(input,'nummax.inp');reset(input);
        assign(output,'nummax.out');rewrite(output);
        readln(s);

        xuli;
        write(res);
        close(input);close(output);
end.

var    s,x:string;
procedure xuli;
var    t:string;
        d,i:longint;
begin
        d:=1;
        for i:=1 to length(s) do if s[i]=s[i+1] then d:=d+1 else
        begin
                str(d,t);
                x:=concat(x,s[i],t);
                d:=1;
        end;
end;
begin
        assign(input,'nenxau.inp');reset(input);
        assign(output,'nenxau.out');rewrite(output);
        readln(s);

        xuli;
        write(x);
        close(input);close(output);
end.

var    s:string;
procedure xuli;
var    x:string;
        i,j,t:longint;
begin
        x:='';
        for i:=1 to length(s) do if ('0'<=s[i]) and ('9'>=s[i]) then
        begin
                val(s[i],t);
                for j:=1 to t do write(x);
                x:='';
        end else x:=x+s[i];
end;
begin
        assign(input,'giainenxau.inp');reset(input);
        assign(output,'giainenxau.out');rewrite(output);
        readln(s);

        xuli;
        close(input);close(output);
end.

var    s1,s2:string;
procedure xuli;
var    t:string;
        p,i:longint;
        a:array [0..100000] of longint;
begin
        repeat
                t:=s2;p:=0;
                while pos(s1,t)>0 do
                begin
                        p:=p+1;
                        a[p]:=pos(s1,t);
                        delete(t,1,pos(s1,t));
                end;
                for i:=1 to p do delete(s2,a[i],length(s1));

        until pos(s1,s2)=0;
end;
begin
        assign(input,'xoaxaucon.inp');reset(input);
        assign(output,'xoaxaucon.out');rewrite(output);
        readln(s1);
        readln(s2);

        xuli;
        write(s2);
        close(input);close(output);
end.

var    s,x:string;
        res:longint;
function kt(u,v:longint):boolean;
var    o:boolean;
        p:longint;
begin
        o:=true;
        for p:=u to ((v-u+1) div 2) do if (s[p]<>s[v-p+1]) then o:=false;
        exit(o);
end;
procedure xuli;
var    i,j:longint;
begin
        for i:=1 to length(s) do
        for j:=i to length(s) do
        if kt(i,j) and (res<j-i+1) then
        begin
                res:=j-i+1;
                x:=copy(s,i,res);
        end;
end;
begin
        assign(input,'xaucondoixung.inp');reset(input);
        assign(output,'xaucondoixung.out');rewrite(output);
        readln(s);

        xuli;
        write(x);
        close(input);close(output);
end.