Здравствуйте, angel.nero!
Решение задач в приложении.

Приложение:
1)Добавить к целому положительному числу слева заданную цифру
uses crt;
var a,b,k:longint;
begin
clrscr;
repeat
write('Введите целое положительное число не более 99 999 999 a=');{чтобы при вводе цифры не получить число,
выходящее за предел типа longint}
readln(a);
until (a>0)and(a<100000000);
repeat
write('Введите цифру, которую добавить слева от 1 до 9 k=');
readln(k);
until k in [1..9];
b:=a;{запомним число}
while a>0 do{пока число не ноль}
begin
a:=a div 10;{делим его на 10, считаем разряды}
k:=k*10;{цифру умножаем на 10, повышаем разряд}
end;
b:=k+b;{прибавляем к числу}
write(b);
readln
end.
2)Найти к-ую цифру целого положительного числа (при нумерации цифр в числе справа налево).Если количество цифр в числе меньше к, выдать об этом сообщение
uses crt;
var a:longint;
k,i,c:byte;
begin
clrscr;
repeat
write('Введите целое положительное число a=');
readln(a);
until a>0;
repeat
write('Введите нoмер цифры справа от 1 до 9 k=');
readln(k);
until k in [1..9];
c:=0;
while (a>0)and(c<k) do{пока число не ноль и номер цифры справа меньше заданного}
begin
i:=a mod 10;{отделяем справа цифры}
c:=c+1;{считаем}
a:=a div 10;{берем число без последней цифры и все повторяем}
end;
if (a=0) and (c<k) then write('В числе нет ',k,' цифр!'){если "разобрали" число
и в нем нет столько цифр}
else write('Цифра № ',k,'=',i);
readln
end.
2)Найти к-ую цифру целого положительного числа (при нумерации цифр в числе справа налево).Если количество цифр в числе меньше к, выдать об этом сообщение
uses crt;
var a:longint;
k,i,c:byte;
begin
clrscr;
repeat
write('Введите целое положительное число a=');
readln(a);
until a>0;
repeat
write('Введите нoмер цифры справа от 1 до 9 k=');
readln(k);
until k in [1..9];
c:=0;
while (a>0)and(c<k) do{пока число не ноль и номер цифры справа меньше заданного}
begin
i:=a mod 10;{отделяем справа цифры}
c:=c+1;{считаем}
a:=a div 10;{берем число без последней цифры и все повторяем}
end;
if (a=0) and (c<k) then write('В числе нет ',k,' цифр!'){если "разобрали" число
и в нем нет столько цифр}
else write('Цифра № ',k,'=',i);
readln
end.

Здравствуйте, angel.nero!
Ответы в приложении

Приложение:
1) k := k * 10 + d
k - число
d - цифра
2)
for i := 1 to k do
n := n div 10;
n := n mod 10;
i - целочисленная переменная
k - номер цифры (нумерация от 0)
n - на входе число, на выходе k-ая цифры.