Какое наименьшее число почтовых марок стоимостью 10,4 и 1 руб. Надо наклеить на…

program while; var m,s,d,ch,od: integer; beginwriteln ('Vvedit m'); readln (m); if (m<50) and (m>0) then begin m: =m-50; s: =10; while m>0 do beginm: =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); readlnend. {делал без проверки в паскале}