Дано натуральное число n (n> 9). найти число сотен в нем.(паскаль)

Program test; 
var n: integer; 
begin 
writeln(' n = '); read(n); 
writeln(' сотен = ' , n div 100); 
end;