Число x получают след образом: слева на право записывают без пробелов подряд числа от 1 до n( ).по числу n определить,сколько цифр в числе x

Var n,i:longint;
Begin
readln(n);
for i:1 to n  do 
write(i);
writeln(n);
End.

Var
cnt, i,tmp, n, ans:longint;
begin
Writeln('Введите n -> ');
Readln(n);
for i:= 1 to n do
  begin
    tmp:= i;
    cnt:= 0;
    while tmp > 0 do
      begin
        inc(cnt);
        tmp := tmp div 10;
      end;
    ans:= ans + cnt;
  end;
Writeln(ans);
end.