Viết chương trình pascal: Cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy?

Đề: Viết chương trình pascal cho nhập hai số tự nhiên N và k. Hãy cho biết chữ số thứ k tính từ trái sang phải trong số N là số mấy? Nếu k lớn hơn độ dài của N hoặc k bằng không thì thông báo không tìm được.

Cách làm:

Code:

Uses crt;
Var N, k: Longint;
N2: String;
Begin
Clrscr;
Write ('nhap n=') ; readln (N) ;
Write ('nhap k=') ; readln (k) ;
Str (n, n2) ;
If (k=0) or (k>length (n2))  then write ('khong tim duoc')
Else write ('ket qua: ', n2[k]) ;
Readln
End.