Сколько прямоугольников можно найти?

Program rectangles;
  Uses Crt;
  Var
    f,f1  : text;
    m,n,p : integer;{ m - length & n - width big rectangle;}
                      {p - lower bound for the perimeter of the rectangle}
 
  Function Perimeter(l,w : integer) : word;
  { where l - length & w - width rectangle }
    Begin
      Perimeter := 2*(l+w);
    End;
 
  Function Search(m,n,p : integer) : word;
    Var
      i,j,k : word; {k - the number of rectangles}
    Begin
      k := 0;
      For i := 1 to n do
        For j := 1 to m do
          If Perimeter(i,j) >= p Then
            Begin
              k := k + Round(n/i)*Round(m/j);
            End;
      Search := k;
    End;
 
BEGIN
    assign(f,'input.txt'); Reset(f);
    assign(f1,'OUTPUT.TXT'); Rewrite(f1);
    Readln(f,m,n,p);
    If (n < 1) or (m > 100) or (p < 4) or (p > 2*(m+n)) Then
      Begin
        Writeln('Error'); Readkey;
        Halt;
      End;
    Writeln(f1,Search(m,n,p));
    Close(f); Close(f1);
END.

Program rectangles;
  Uses Crt;
  Var
    i,j : byte;
    m,n,p,k : integer;{ m - length & n - width big rectangle;}
                      {p - lower bound for the perimeter of the rectangle}
 
  Function Perimeter(l,w : integer) : word;
  { where l - length & w - width rectangle }
    Begin
      Perimeter := 2*(l+w);
    End;
 
BEGIN
  ClrScr;
    Readln(m,n,p);
    If (n < 1) or (m > 100) or (p < 4) or (p > 2*(m+n)) Then
      Begin
        Writeln('Error'); Readkey;
        Halt;
      End;
    k := 0;
      For i := 1 to n do
        For j := 1 to m do
          If Perimeter(i,j) >= p Then
            Begin
              k := k + (n-i+1)*(m-j+1);
            End;
    Writeln(k);
END.