Напишите оператор присваивания, в результате выполнения которого целой переменной н присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа к ( например, если к= 28796, то н= 7). p.s язык Паскаль:)

Var n,k:integer;
begin
readln(k);
n:=(k mod 1000) div 100;
writeln(n);
end.