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

program zz1;

var a, n:integer; / / задаем переменные целого типа

begin

write (' введите какую сдачу надо дать '); / / вводим с клавиатуры число

read (n);

a:=0;

while n > = 500 do / / организуем цикл, пока число n больше 500

begin

n:=n-500; / / уменьшаем сумму на 500

a:=a+1; / / считаем количество банкнот

end;

writeln (' нужно дать = ', a, ' банкнот по 500 '); / / выводим ответ

a:=0;

while n > = 100 do / / организуем цикл, пока число n больше 100

begin

n:=n-100; / / уменьшаем сумму на 100

a:=a+1; / / считаем количество банкнот

end;

writeln (' нужно дать = ', a, ' банкнот по 100 '); / / выводим ответ

a:=0;

while n > = 50 do / / организуем цикл, пока число n больше 50

begin

n:=n-50; / / уменьшаем сумму на 50

a:=a+1; / / считаем количество банкнот

end;

writeln (' нужно дать = ', a, ' банкнот по 50 '); / / выводим ответ

a:=0;

while n > = 10 do / / организуем цикл, пока число n больше 10

begin

n:=n-10; / / уменьшаем сумму на 10

a:=a+1; / / считаем количество банкнот

end;

writeln (' нужно дать = ', a, ' банкнот по 10 '); / / выводим ответ

end.