-Bổ sung biến:

Var x: integer;

      S: string;

-Nội dung chương trình:

Begin  {bắt đầu chương trình}

         Write('Nhap vao xau: '); readln(s);  {Nhập xâu S vào từ bàn phím}

         X:= length(s);  {tính độ dài xâu S và gán kết quả vào biến x}

         Write(X);  {thông báo kết quả biến x ra màn hình}

         readln

end.  {kết thúc chương trình}

`=>` Chương trình thực hiện công việc: khai báo ra màn hình độ dài của một xâu bất kì được nhập vào từ bàn phím.

- Giá trị biến S là 1 xâu kí tự

⇒ Kiểu dữ liệu : String;

- Giá trị X cho giá trị là độ dài xâu S (Length(S))

⇒ Kiểu dữ liệu : Byte, Integer, ...

______________________________________________________

⇒ Khai báo : Var S : String; X : Byte;

⇒ Công việc : In ra độ dài xâu S được nhập từ bàn phím