(*
Total squares in a 3 * 3 grid are 14
1x1 squares = 9 Squares
2x2 squares = 4 Squares
3x3 squares = 1 Squares
*)
program CountSquares;
// Function to calculate the total number of squares in an N x N grid
function CountSquaresInNxNGrid(N: Integer): Integer;
begin
// Formula: Total Squares = N * (N + 1) * (2N + 1) / 6
CountSquaresInNxNGrid := (N * (N + 1) * (2 * N + 1)) div 6;
end;
var
N, totalSquares: Integer;
begin
N := 3;
// Validate input
if N <= 0 then
begin
writeln('Grid size must be a positive integer!');
halt(1);
end;
// Calculate and display the total number of squares
totalSquares := CountSquaresInNxNGrid(N);
writeln('The total number of squares in a ', N, 'x', N, ' grid is: ', totalSquares);
end.
(*
run:
The total number of squares in a 3x3 grid is: 14
*)
