Написать в Паскале программу, которая реализует алгоритм работы кассира, дающего сдачу наименьшим количеством банкнот по 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.