Программирование циклов на Паскале.

Покупатель должен заплатить в кассу S рублей. У него имеются монеты в 1, 2 и 5 рублей, а также купюры достоинством в 10, 50, 100 и 500 рублей (достаточное количество). Сколько монет и купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных?

Var

m1, m2, m5, m10, m50, m100, m500, s:integer;

begin

m1:=0;

m2:=0;

m5:=0;

m10:=0;

m50:=0;

m100:=0;

m500:=0;

readln (s) ;

while s>0 do

begin

if s>=500 then

begin

s:=s-500;

m500:=m500+1;

end

else

if s>=100 then

begin

s:=s-100;

m100:=m100+1;

end

else

if s>=50 then

begin

m50:=m50+1;

s:=s-50;

end

else

if s>=10 then

begin

s:=s-10;

m10:=m10+1;

end

else

if s>=5 then

begin

m5:=m5+1;

s:=s-5;

end

else

if s>=2 then

begin

m2:=m2+1;

s:=s-2;

end

else

begin

m1:=m1+1;

s:=s-1;

end;

end;

writeln ('500 р = ', m500) ;

writeln ('100 р = ', m100) ;

writeln ('50 р = ', m50) ;

writeln ('10 р = ', m10) ;

writeln ('5 р = ', m5) ;

writeln ('2 р = ', m2) ;

writeln ('1 р = ', m1) ;

end.