Написать в Паскале программу, которая реализует алгоритм работы кассира, дающего сдачу наименьшим количеством банкнот по 500, 100, 50, 10 рублй

Var _500,_100,_50,_10, money_get:integer; beginwriteln ('Введите стоимость товара') ; readln (money_get) ; while (money_get mod 10 0) do begin writeln ('стоимость должна делиться на 10, попробуйте еще раз') ; readln (money_get) ; end; while (money_get>=500) do begin _500:=_500+1; money_get:=money_get-500; end; while (money_get>=100) do begin _100:=_100+1; money_get:=money_get-100; end; while (money_get>=50) do begin _50:=_50+1; money_get:=money_get-50; end; while (money_get>=10) do begin _10:=_10+1; money_get:=money_get-10; end;

writeln (_500,': 500 рублей',_100,':100 рублей',_50,':50 рублей',_10,':10 рублей') ;

readln; end.