Написать программу с помощью которой вводится натуральное число n (n>99) Затем программа должна вычислить кол-во сотен в введённом числе .

var  i, n:integer;begin  Write('Введите число n >> '); ReadLn(n);  i := n div 100;  Write('Количество сотен в числе ', n ,' является ', i);end.