program de_1;
uses crt;
var s1,s2,x:string;
i:byte;
begin
clrscr;
write('Nhap xau s1: '); readln(s1);
write('Nhap xau s2: '); readln(s2);
x:='';
for i:=length(s2) downto 1 do
x:=x+s2[i];
writeln('- Xau x dao nguoc cua xau s2 la: ',x);
if s1[1]=x[length(x)] then write('- Phai')
else write('- Khong phai');
readln;
end.
