<span>16*118272 бит=1892352 бит = 236544 байт = 231 Кб = 0,2256 Мб</span>
Программа для решения задачи и пример её работы - в прилагаемом файле
Школа - Школьный Департамент.
Больница - Минздрав.
Автомобиль -Водитель.
Река - Море.
Планета - Солнечная Система.
Var i: integer;
begin
for i:=10 to 99 do
begin
if (i div 10 - i mod 10 > 3 ) then
print(i);
end
end.