Viết chương trình nhập vào xâu S . Tính số cách có thể đi từ điểm đầu xâu S đến điểm cuối xâu S mà phải qua tất cả các điểm. Ví dụ: Nhập vào: A2143B213C74D2756E Đầu ra: 96 Giải thích: A qua B có 4 cách, B qua C có 3 cách, C qua D có 2 cách, D qua E có 4 cách => có 4*3*2*4=96 cách đi từ A đến E. Viết bằng Code Pascal với ạ.

uses crt;
var s:string;
i,t,d:longint; 
begin
clrscr;
readln(s);
i:=1;
t:=1;
while i<=length(s) do
begin
 d:=0;
 while s[i] in ['0'..'9'] do
 begin
  d:=d+1;
  i:=i+1;
 end;
 if d<>0 then t:=t*d;
 i:=i+1;
end;
write(t);
readln
end.

var s: string;
    i,d: integer;
    ans: int64;
begin
    readln(s);
    d:=0; ans:=1;
    for i:=2 to length(s) do begin
        if s[i] in ['0'..'9'] then d:=d+1
        else begin
            ans:=ans*d;
            d:=0;
        end;
    end;
    write(ans);
end.