Какое наименьшее число почтовых марок стоимостью 10.4 и 1 руб. надо наклеить на бандероль, вес которой М грамм? Плата за посылку вычисляется следующим образом: за бандероль весом до 50 г взимается 10 руб., за каждые следующие полные или неполные 50 г - еще по 5 руб.

program while;

var m, s, d, ch, od:integer;

begin

writeln ('Vvedit m');

readln (m);

if (m0) then begin

m:=m-50; s:=10;

while m>0 do begin

m:=m-50;

s:=s+5;

end;

d:=s div 10; s:=s-d*10;

ch:=s div 4; s:=s-ch*4;

od:=s;

end;

writeln ('10-', d,' 4-', ch,' 1-', od);

readln

end. {делал без проверки в паскале}