данно целое число С++ Builder

[nariku]

Дано целое k от 1 до 180. Определить, какая цифра находится в k-й позиции последовательности
10111213...9899.

просьба перевести код в Borladn C++ Builder 6.0

uses crt;
var k,c:byte;
begin
clrscr;
repeat    {вводим число к с проверкой правильности ввода}
write('Vvedite k=[1,180] k=');
readln(k);
until (k>=1)and(k<=180);
if odd(k) then c:=k div 20+1 {если к-нечетное}
else if k mod 20=0 then c:=9 else{если четное и кратно 20}
c:=k mod 20 div 2 -1; {четное и не кратно 20}
write('Cifra #',k,'=',c);
readln
end.