Линейный алгоритм - Free Pascal (143751)

Спасайте Пусть дано натуральное число n,состоящее из 6 цифр. Определите количество сотен и тысяч в нем Решение:

var a,b,c:integer;
begin
  readln(a);
  b:=(a div 100);
  c:=(a div 1000);
  writeln(b);
  writeln(c);
  readln;
end.

Нужно оформить как визуальную программу

Листинг программы

b:=a mod 1000 div 100;
c:=a mod 10000 div 1000

Объяснение кода листинга программы

Объявляются две переменные a, b типа дробное число
Вычисляется значение переменной b как результат деления a на 1000 и остатка от деления на 100
Вычисляется значение переменной c как результат деления a на 10000 и остатка от деления на 1000