Cho một xâu ‘s’ in ra phần tử có vị trí lẻ ở trong xâu Vd : ‘lop 11a3’ Output: Lp1A

program xaule;

uses crt;

var st:string;

      i:byte;

begin

clrscr;

write(‘Nhap xau: ‘);   readln(st);

write(‘Xau duoc tao thanh tu cac vi tri le la: ‘);

for i:=1 to length(st) do

 if i mod 2=1 then write(st[i]);

readln

end.