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

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.