You are given a two-dimensional square array. Find line numbers with all elements equal to zero.

Pascal:
uses crt;
var a: array [1..100,1..100] of byte;
b: array [1..100] of byte;
n, i, j, k: byte;
begin
write (‘Enter the size of the array’);
readln (n);
writeln (‘Given an array’);
k: = 0;
for i: = 1 to n do
begin
for j: = 1 to n do
begin

a [i, j]: = random (2);
write (a [i, j]: 2);
if a [i, j] = 0 then inc (k);
end;
b [i]: = k;
k: = 0;
writeln;
end;
writeln (‘line numbers, all elements of which are zero’);
for i: = 1 to n do
if b [i] = n then write (i: 4);
readln;
end.