Nhập vào số nguyên n, thực hiện: a. n có bao nhiêu chữ số? b. Tổng chữ số của n? c. Chữ số thứ chẵn của n d. Chữ số thứ lẻ của n e. Xuất ra màn h

uses crt;
var n:string; i,m:longint;
begin
clrscr;
   write(‘Nhap vao mot xau:’);readln(n);
   m:=length(n);
   writeln(n,’ co ‘,m,’ chu so.’);
   write(‘Cac chu so thu chan cua ‘,n,’ :’);
   for i:=1 to m do if i mod 2=0 then write(n[i],’;’); writeln;
   write(‘Cac chu so thu le cua ‘,n,’ :’);
   for i:=1 to m do if i mod 2=1 then write(n[i],’;’); writeln;
   write(‘Chu so dao nguoc cua ‘,n,’ :’);
   for i:=m downto 1 do write(n[i]);
readln
end.

///////////////////////////////////////