После обучения Архимед и Эратосфен переписывались еще много лет. Помогите определить, сколько денег нужно заплатить за отправку бандероли в древней Греции, если известно, что за бандероль весом до 50 грамм взимается 10 драхм (дренегреческая валюта), а за каждые следующие полные или неполные 50 грамм еще по 5 драхм.

Напишите программу, вычисляющую, какое наименьшее число монет по 10, 4 и 1 драхме надо заплатить за отправку бандероли весом w грамм.(Free Pascal)

Спасибо большое!

на PascalABC.NET------------------------program aaa;const n=50;var w, c, x, d10, d4, d1: integer; begin   writeln ('Введите вес бандероли');  readln (w);  if w <= n    then c:=10    else         if w mod n = 0          then c:=10+((w div n)-1)*5          else c:=10+5+((w div n)-1)*5;   d10:= c div 10;  d4:= (c-10*d10) div 4;  d1:= (c-d10*10-d4*4);   writeln ('стоимость бандероли: ',c,' драхм');  writeln;  writeln ('для оплаты нужно не менее');  writeln (d10:10,' монет по 10 драхм');  writeln (d4:10,' монет по 4 драхмы');  writeln (d1:10,' монет по 1 драхме');end.    ------------------Результат работы программы:Введите вес бандероли     100стоимость бандероли: 15 драхмдля оплаты нужно не менее          1 монет по 10 драхм          1 монет по 4 драхмы          1 монет по 1 драхме

Можете дать ответ на питоне?