B:=125 mod 100 div 10 c:=125 mod 10
Begin writeln(125 mod 100 div 10 ,' ',125 mod 10); end. Ответ : 2 5
mod - взятие остатка
div целой части взятие