Впрограмме паскаль. дано натуральное число. вывести его первую и предпоследнюю цифру (цифры нумеруются справа на лево). вывести цифру заданным номером k.

Var
   A:longint;
   k:byte;
Begin
Write('Введите натуральное число: ');ReadLn(A);
Write('k = ');ReadLn(k);
WriteLn('Первая цифра: ',A mod 10);
For k:= 1 to k-1 do
    A:=A div 10;
k:=A mod 10;
While A div 10 > 0 do
   A:=A div 10;
WriteLn('Последняя цифра: ',A);
WriteLn('Цифра №k: ',k);
End.

Пример работы программы:

Введите натуральное число: 968764513
k = 5
Первая цифра: 3
Последняя цифра: 9
Цифра №k: 6