Program Tong_chu_so;

Var s:string; i:byte;

p:integer;{bien luu tong}

begin

write('Nhap so: '); readln(s); // đọc s từ bàn phím

for i:=1 to length(s) do p:=p+ord(s[i]); // cộng dần giá trị ASCII của mỗi kí tự vào p

p:=p-48*length(s); // đặt p = tổng các giá trị ASCII của mỗi kí tự - 48 × độ dài xâu

writeln(p); // in p

readln

end.

Program Tong_chu_so;

`->` Tên chương trình
uses crt;
Var s:string;
i:byte;

`->`  Khai báo biến s và i
p:integer;{bien luu tong}
begin
clrscr;
write('Nhap so: ');readln(s);
for i:=1 to length(s) do p:=p+ord(s[i]);

`->` Vòng lặp chạy từ 1 đến độ dài của xâu s, mỗi lần lặp, biến p cộng thêm x giá trị, với mỗi x giá trị là thứ tự của ký tự s[i] trong bản mã ASCII.

    `=>` Ord(x) : thấy thứ tự của ký tự x trong bản mã ASCII.

p:=p-48*length(s);

`->` Lấy biến p trừ đi 48 lần nhân với độ dài xâu s
writeln(p);

`->` Xuất kết quả hay xuất giá trị biến p
readln
end.

`=>` 

Hàm length : đếm độ dài xâu

Hàm ord : trả về thứ tự của ký tự trong bảnng mã ASCII