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

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. {делал без проверки в паскале}