program CalculateBanknotes;

var

 S, bn500, bn100, bn50, bn10: Integer;

begin

 Write('Введите сумму (в рублях): ');

 Readln(S);

 bn500 := S div 500;

 S := S mod 500;

 bn100 := S div 100;

 S := S mod 100;

 bn50 := S div 50;

 S := S mod 50;

 bn10 := S div 10;

 Writeln('Наименьшее количество банкнот:');

 Writeln('500 рублей: ', bn500);

 Writeln('100 рублей: ', bn100);

 Writeln('50 рублей: ', bn50);

 Writeln('10 рублей: ', bn10);

end.

Программа принимает сумму в рублях и вычисляет минимальное количество банкнот и монет для представления этой суммы. Например, если ввести сумму 567 рублей, программа выдаст следующий результат:

Наименьшее количество банкнот:

500 рублей: 1

100 рублей: 1

50 рублей: 1

10 рублей: 1