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

program while;

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

begin

writeln ('Vvedit m');

readln (m);

 if (m<50) and (m>0) 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. {делал без проверки в паскале}