Написать программу, которая вычисляет, сколько купюр и какого достоинства нужно отдать в кассу, чтобы оплатить покупку

program k_500_100_50;var s:integer;

beginwrite(\'Введите сумму, кратную 50: \');readln(s);writeln();writeln(\'Купюры по 500 р.: \', s div 500 : 4);writeln(\'Купюры по 100 р.: \', (s mod 500) div 100 : 4);writeln(\'Купюры по  50 р.: \' , (s mod 100) div 50 : 4)end.