17 баллов, сделать на паскале Нужно заплатить S рублей, есть купюры 100, 50,10,2,1 рубль. Сколько купюр каждого достоинства нужно отдать покупателю, если он будет платить с самых крупных.

var s,k1,k2,k3,k4,k5:integer; begin write('s='); readln(s); k1:=s div 100; k2:=s mod 100 div 50; k3:=s mod 50 div 10; k4:=s mod 10 div 2; k5:=s mod 2; writeln('100 - ',k1,',  50 - ',k2,',  10 - ',k3,',  2 - ',k4,',  1 - ',k5); end. Пример: s=463 100 - 4,  50 - 1,  10 - 1,  2 - 1,  1 - 1