XAU PASCAL

var a,b,c: String;        //khai bao kieu du lieu xau
      m,n,k,d:longint;

procedure nhap;
begin
    Readln(a);
    Readln(b);
end;

procedure caua;
begin
    If a>b then writeln ('>');
    if a<b then writeln ('<');
    if a=b then writeln ('=');
end;

procedure caub;
begin
    c:=a+' '+b;
    writeln (c);
end;

procedure cauc;
begin
    m:=length(a);
    n:=length(b);
    k:=m-n;
    writeln(k);
end;

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

begin
    assign(input,'XAU.INP'); reset(input);
    assign(output,'XAU.OUT'); rewrite(output);
    nhap;
    caua;
    caub;
    cauc;
    caud;
    close(input); close(output);
end.