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

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

Выход из программы: ввод номера цифры 0.

program n101112;Var k: integer; begin k:=1;while k>0 dobeginwrite(\'Введите порядковый номер цифры: \');readln(k);if k mod 2 = 1 then writeln(\'Цифра № \', k, \': \', (k div 20)+1) elseif (k mod 2 = 0) and (k<>0) then writeln(\'Цифра № \', k, \': \', (k mod 20)/2 -1)else writeln(\'Работа с программой прекращена.\')endend.