Склавиатуры вводится целое число k (1 ≤ k ≤ 180) . определить k-ю цифру в последовательности двузначных чисел, выписанных подряд (). можно ли эту решить без оператора if? !

Var
s,p:string;
i,n:integer;
begin
write('n = ');
readln(n);
for i := 10 to 99 do
 begin
 str(i,p);
 s := s + p;
 end;
writeln(s[n]); 
end.