Билет на одну поездку в метро стоит 15 рублей, билет на 5 поездок стоит 70 рублей, билет на 10 поездок стоит 125 рублей, билет на 20 поездок стоит 230 рублей, билет на 60 поездок стоит 440 рублей. Пассажир планирует совершить n поездок. Определите, сколько билетов каждого вида он должен приобрести, чтобы суммарное количество оплаченных поездок было не меньше n, а общая стоимость приобретенных билетов – минимальна.

Формат входных данных

Дано одно число n - количество поездок.

Формат выходных данных

Выведите пять целых чисел, равные необходимому количеству билетов на 1, на 5, на 10, на 20, на 60 поездок. Если для какого-то данного n существует несколько способов приобретения билетов одинаковой стоимости, необходимо вывести ту комбинацию билетов, которая дает большее число поездок.

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin  var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);  var n := ReadInteger('n->');  for var i := 4 downto 0 do  begin    k[i] := n div t[i];n := n mod t[i];  end;   if k[0] * cost[0] >= cost[1] then begin k[0] := 0;inc(k[1]); end;  if k[0] * cost[0] + k[1] * cost[1] >= cost[2] then   begin    k[0] := 0;k[1] := 0;inc(k[2]);   end;  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] >= cost[3] then   begin    k[0] := 0;k[1] := 0;k[2] := 0;inc(k[3]);  end;  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] >= cost[4] then   begin    k[0] := 0;k[1] := 0;k[2] := 0;k[3] := 0;inc(k[4]);   end;    for var i := 0 to 4 do WritelnFormat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);end.Пример(1):n-> 371 билет(ов)- 0 штук(а)5 билет(ов)- 0 штук(а)10 билет(ов)- 0 штук(а)20 билет(ов)- 0 штук(а)60 билет(ов)- 1 штук(а)Пример(2):n-> 351 билет(ов)- 0 штук(а)5 билет(ов)- 1 штук(а)10 билет(ов)- 1 штук(а)20 билет(ов)- 1 штук(а)60 билет(ов)- 0 штук(а)