program NthDigitInSequence;
var
n, num, digit, count, i, j: integer;
begin
write('Введите натуральное чётное число n (не более 180): ');
readln(n);
num := 10;
digit := 0;
count := 0;
for i := 1 to n do
begin
if count = 2 then
begin
num := num + 1;
count := 0;
end;
for j := 1 to 2 do
begin
count := count + 1;
if count = 2 then
digit := num mod 10;
num := num div 10;
end;
end;
writeln('Искомая цифра: ', digit);
end.

Программа сначала считывает значение n, затем перебирает числа от 10 до 99 включительно, вычисляя каждую цифру от одной до девяти и запоминая n-ую цифру. Результат выводится на экран.