program Lordu;
uses crt;
const
     nn = 5;
var
     a: array[1..nn, 1..nn] of byte;
     i, j: byte;
     n: word;
     c0: boolean;
begin
clrscr;
for i := 1 to nn do
     for j := 1 to nn do
         begin
         a[i, j] := random(4);
         gotoXY(j * 5, i * 2);
         write(a[i, j]);
         end;

for i := 1 to nn do
     begin
     for j := 1 to nn do
         if a[i, j] = 0 then
             begin
             c0 := true;
             continue;
             end;
     if c0 = false then N := N + 100;
     c0 := false;
     end;

for i := 1 to nn do
     for j := 1 to nn - 3 do
         if (a[i, j] = a[i, j+1]) and
            (a[i, j+1] = a[i, j+2]) then N := N + 23;

writeln(#10#13, 'Result = ', N);
readkey;
end.

var  
      a: array[1..6, 1..8] of byte;