viết chương trình nhập vào xâu A tính và in ra màn hình. số lượng khoảng trống trong câu xâu trên có bao nhiêu từ

program khoangtrong;

uses crt;

var a:string;

      d:byte;

begin

        clrscr;

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

        d:=0;

        for i:=1 to length(a) do

                if a[i]=’ ‘] then d:=d+1;

        write(‘Trong A co ‘,d,’ khong trong’);

        while a[1]=’ ‘ do delete(a,1,1);

        while a[length(a)]=’ ‘ do delete(a,length(a),1);

        while pos(‘  ‘,a)<>0 do delete(a,pos(‘  ‘,a),1);

        d:=1;

        for i:=1 to length(a) do

                if a[i]=’ ‘ then d:=d+1;

        write(‘Trong xau co ‘,d,’ tu’);

        readln;

end.