Программа нужна на паскале
С кондитерской фабрики отгружают конфеты в коробках по 7 кг, 5 кг, 3 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килограмм

var n,k7,k5,k3,k1,k:integer;beginwrite('n = ');readln(n);k7:=n div 7;k5:=(n-k7*7) div 5;k3:=(n-k7*7-k5*5) div 3;k1:=n-k7*7-k5*5-k3*3;writeln('k7 = ',k7,' k5 = ',k5,' k3 = ',k3,' k1 = ',k1);writeln('k = ',k7+k5+k3+k1);end.Пример:n = 20k7 = 2 k5 = 1 k3 = 0 k1 = 1k = 4