Что означает фраза: «Забил заряд я в пушку туго...»? Лермонтов «Бородино»

артиллерист, забивающий заряд, должен был выходить за укрепления и поэтому был открыт вражеским выстрелам.

uses crt;
var n,m,i,p:longint;
    s,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число N=');
readln(n);
until n>0;
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);
k:=0;
for i:=1 to n-1 do
 begin
  m:=i;
  p:=1;
  while m>0 do
   begin
    p:=p*(m mod 10);
    m:=m div 10;
   end;
  if p=s then
   begin
    k:=1;
    write(i,' ');
   end;
 end;
if k=0 then write('Таких чисел нет');
readln
end.

var n, m, a, b, c, d, e, f, g:integer;
Function Nod (m, n: integer): integer;
Begin
    While m<>n do
       If m>n then m:=m-n
                   Else n:=n-m;
       Nod:=m
End;
Begin
     Write('Ведите числители и знаменатели дробей: ');
     Read(a,b,c,d);
     e:=a*d;
     f:=b*c;
     if e=0 then writeln(e)
        else
            begin
                 g := nod(abs(e),abs(f));
                 e := e div g;
                 f:= f div  g;
                 writeln(e,'/',f);
            end;
end.