Nhập n in ra hàng đơn vị

uses crt;
var n,d,dv,t,s,i:longint;
begin
        s :=0;

        d := 0;
        t:=1;
        dv:=0;
        clrscr;
        write('nhap so n: ');readln(n);
        for i := 1 to n do
        begin
                   s:=s+i;         

                  d:=(trunc(s div 10));
        end;
        while d <> 0 do
        begin
        d:= d-1;
        t := t*10;
        end;
        dv := t mod 10;
        write(dv);
        readln;
end.

Cách làm mình lấy i -> n để đếm xem có bao nhiêu phần tử n sau đó mình sẽ có được số lượng số không mà mình cần biết mình làm như sau ví dụ in 46 mình sẽ có tông phần tử n là 46 sau đó mình chia mình sẽ chia mười lấy nguyên và khi n nhỏ hơn 10,100,1000 thì chứng tỏ đó là số 0 cần tìm từ đây mình thực hiện phép tính in ra hàng đơn vị như bình thường.

@danhle

program hdv;

uses crt;

var n:longint;

begin

clrscr;

write('Nhap n: ');    readln(n);

write('Chu so hang don vi cua ',n,' la: ',n mod 10);

readln

end.