uses crt;
var st,s : string;
i,a,d1,d : integer;
begin d:=0;
write('Nhap xau :'); readln(st);
write('Nhap xau s:'); readln(s);
if length(st) > length(s) then write('Xau st>s') else
if length(st) < length(s) then write('Xau st<s') else
write('Banh nhau');
write(st[i]); d:=d+1;
readln
end.