PHANTU PASCAL

var a,b,c:string;
       m,n,k:longint;

procedure nhap;
begin
    readln(a);m:=length(a);
    readln(b);n:=length(b);
end;

procedure cau1;
begin
    if a[m]=b[1] then writeln('Yes')
    else writeln('No');
end;

procedure cau2;
var i,d:longint;
begin
    d:=0;
    for i:=1 to m do
           if a[i]=b[1] then inc(d);
    writeln(d);
end;

procedure cau3;
var i:Longint;
begin
    for i:=m downto 1 do write(a[i]);
    writeln;
end;

procedure cau4;
var i:Longint;
begin
    for i:=1 to n do
           if b[i]<>' ' then write(b[i]);
    writeln;
end;

procedure cau5;
var i:longint;
begin
    c:='';
    for i:=1 to m do
           if (a[i]>='0') and (a[i]<='9') then c:=c+a[i];
    writeln(c);
end;

procedure cau6;
var     i:longint;
    kt:boolean;
begin
    k:=length(c);kt:=true;
    for i:=1 to k div 2 do
           if c[i]<>c[k+1-i] then kt:=false;
    if kt then writeln('Yes') else writeln('No');
end;

begin
    assign(input, 'phantu.inp');reset(input);
    assign(output, 'phantu.out');rewrite(output);
    nhap;
    cau1;
    cau2;
    cau3;
    cau4;
    cau5;
    cau6;
end.