Дана сумма в рублях. Сумма не превышает 9 рублей. Определить, каким минимальным количеством монет можно выразить данную сумму. Например, 8 рублей можно выразить как 5 рублей + 2 рубля +1 рубль = 3 монеты найти с и mod

Смотри таблицу во вложении.
В светло-зелёные клетки вводим расстояния, которые проехали коротышки на каждом виде транспорта.
В розовые - вводим цену за 1 км на каждом виде транспорта.

Таблица автоматически считает:
- Сколько каждый коротышка заплатил за каждую поездку (бежевые ячейки)
- Какое расстояние проехали все коротышки на одном виде транспорта (жёлтые)
- Сколько денег потратили все коротышки на одном виде транспорта (синие)
- Какое расстояние проехал каждый коротышка на всех видах транспорта (тёмно-зелёные)
- Сколько денег потратил каждый коротышка в сумме на всех видах транспорта (коричневые)
- Какое расстояние проехали все коротышки на всех видах транспорта (фиолетовая)
- Сколько денег всего потратили все коротышки в сумме на всех видах транспорта (красная)

var                                      
i,z,y,x: integer;                 // объявление переменных
begin                              // начало программы
writeln('Введите числа: '); // Вывод сообщения
readln(x,y);                      // Ввод чисел х и у с клавиатуры
while i <> y do                 // Повторять цикл пока i не будет равно y
 begin                             // Вход в цикл
 z:=z+x;                          // z = z + x  (при первом шаге получается 0 = 0 + х) 
 i:=i+1;                            // Увеличиваем счетчик цикла на 1 
 end;                               // Выход из цикла
write(z);                           // Вывод z (произведение х и у)
end.                                // Конец программы