ПаскальДаны целое число k (1 k 180) и последовательность цифр 10111213...9899,

Проверить правильность работы программки можно по таблице https://bit.ly/2wBJIqH. 

Выход из программки: ввод номера числа 0.

program n101112;
Var k: integer;
begin
k:=1;
while kgt;0 do
begin
write(Введите порядковый номер числа: );
readln(k);
if k mod 2 = 1 then writeln(Цифра , k, : , (k div 20)+1) else
if (k mod 2 = 0) and (klt;gt;0) then writeln(Цифра , k, : , (k mod 20)/2 -1)
else writeln(Работа с программкой прекращена.)
end
end.