Для комплектования новогодних подарков университет приобрел на кондитерской фабрике 820 кг конфет. Конфеты были упакованы в 100 коробок трех видов, вместимость которых составляла 6, 9 и 13 кг. Сколько коробок каждого вида было использовано? Сколько различных решений имеет данная задача? Найдите и укажите все возможные решения — Pascal(Паскаль)

uses crt;
var i,j,k,s:integer;
begin
clrscr;
s:=0;
for i:=0 to 820 div 6 do
for j:=0 to 820 div 9 do
for k:=0 to 820 div 13 do
if (i+j+k=100)and(i*6+j*9+k*13=820) then
 begin
  writeln('6 kg = ',i:2,'  9 kg= ',j:2,'  13 kg = ',k:2);
  s:=s+1;
 end;
write('Всего решений=',s);
readln
end.

Program Podarki;
Uses Crt;
Var i,j,k,n : integer;
begin
     Clrscr;
     n := 0;
     for i := 1 to (820 div 6) do
         for j := 1 to (820 div 9) do
             for k := 1 to (820 div 13) do
                 if (6*i + 9*j + 13*k = 820) and (i + j + k = 100) then
                    Begin
                         n := n + 1;
                         Writeln(i,'x6 + ',j,'x9 + ',k,'x13 = 820');
                    End;
     Writeln('Vsego ',n,' variantov');
end.