Задача на Делфи (см. внутри) заранее спасибо.

Question

Дано натуральное число n>9. Определить его вторую (с начала) цифру. С использованием А) двух инструкций цикла Б) одну инструкцию цикла

Neo Джаборов · Accepted Answer

А, откуда это "с начала"? 
Если слева: 
var n,j:integer; 
begin 
 readln(n); 
 j:=n; 
 while not(j div 100=0) do j:=j div 10; 
 j:=j mod 10; 
 writeln(j); 
 readln; 
end. 
А, если справа: 
var n,j:integer; 
begin 
 readln(n); 
 j:=n; 
 j:=j div 10; 
 j:=j mod 10; 
 writeln(j); 
 readln; 
end.