На Луне есть монеты 1, 3, 7, 8 тугриков. Незнайка хочет купить билет в кино за 30 тугриков и отдать наименьшее количество монет. Какие монеты он должен отдать? (Перечислите монеты в порядке убывания через пробел, например: 7 1 1 1)

program zz1;

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

begin

s:=30;

while s>=8 do

begin

s:=s - 8;

k:=k + 1;

end;

writeln (' Незнайка должен дать ', k, ' монет по 8 тугриков ');

k:=0;

while s>=7 do

begin

s:=s - 7;

k:=k + 1;

end;

writeln (' Незнайка должен дать ', k, ' монет по 7 тугриков ');

k:=0;

while s>=3 do

begin

s:=s - 3;

k:=k + 1;

end;

writeln (' Незнайка должен дать ', k, ' монет по 3 тугриков ');

k:=0;

while s>=1 do

begin

s:=s - 1;

k:=k + 1;

end;

writeln (' Незнайка должен дать ', k, ' монет по 1 тугриков ');

end.