Nhập vào từ bàn phím xâu A và xâu B. Viết chương trình in ra màn hình xâu A cách xau B 5 vị trí

uses crt;
var a,b:string;
begin
clrscr;
   write(‘A= ‘);readln(A);
   write(‘B= ‘);readln(B);
   writeln(‘Xau A cach xau B 5 vi tri la:’,a,’     ‘,b);
readln
end.