Помогите, пожалуйста!!! Только нужно обязательно чтобы в программе было «div»
Составить программу на языке Паскаль, которая запрашивает у пользователя некоторое количество трехзначных чисел и выводит на экран цифру, находящуюся в середине каждого полученного числа.
Не использовать: const, count

Спасибо огромное!!!

var i,k:integer;beginfor i:=1 to 10 dobeginWrite('Введите трёхзначное число: ');ReadLn(k);WriteLn(k mod 100 div 10)end;end.