begin
sum:=0; price:=0; odef:=0;
writeln('press price, for exit press -999');
readln(price);
while price<>-999 do
begin
sum:=sum+price;
writeln('press price');
readln(price);
end ;
writeln('the sum letashlom = ',sum);
writeln('press the money that get');
writeln(money);
odef:=money-sum;
writeln('the odef from the money is = ',odef,' shekels');
writeln('the odef in the less possible matbeot is = ');
if (odef div 200>0)
then writeln (odef div 200, ' shtarot shel 200 shekels');
if (odef div 100>0) and (odef div 100<2)
then writeln(' shtar shel 100 shekels');
if (odef div 50>0) and (odef div 50<2)
then writeln(' shtar shel 50 shekels');
if (odef div 20>0) and (odef div 20<3)
then writeln(odef div 20, ' shtarot shel 20 shekels');
if (odef div 10>0) and (odef div 10<2)
then writeln('matbea 1 shel 10 shekels');
if (odef div 5<0) and (odef div 5<2)
then writeln('matbea 1 shel 5 shekels');
if (odef div 1>0 and (odef div 1<5)
then writeln(odef div 1,'matbeot shel 1 shekels');
readln;
end .

begin
sum:=0; price:=0; odef:=0;
writeln('press price, for exit press -999');
readln(price);
while price<>-999 do
begin
sum:=sum+price;
writeln('press price');
readln(price);
end ;
writeln('the sum letashlom = ',sum);
writeln('press the money that get');
writeln(money);
odef:=money-sum;
writeln('the odef from the money is = ',odef,' shekels');
writeln('the odef in the less possible matbeot is = ');
if odef>=200 then
begin
writeln(odef div 200,' shtarot shel 200 ');
odef:=odef mod 200;
end ;
if odef>=100 then
begin
writeln(odef div 100,'shtarot shel 100 nis');
odef:=odef mod 100;
end ;
if odef>=50 then
begin
writeln(odef div 50,'shtarot shel 50 nis');
odef:=odef mod 50;
end ;
if odef>=20 then
begin
writeln(odef div 20,'shtarot shel 20 nis');
odef:=odef mod 20;
end ;
if odef>=10 then
begin
writeln(odef div 10,'matbeot shel 10 nis');
odef:=odef mod 10;
end ;
if odef>=5 then
begin
writeln(odef div 5,'matbeot shel 5 nis');
odef:=odef mod 5;
end ;
if odef>=1 then writeln(odef div 1,'matbeot shel 1 nis');
readln;
end .