program dl;
var m:array [1..100,1..100] of integer;
    k:array [1..100] of integer;
    i,j,n,kol:integer;
 
begin
write('Vvedite N (razmer matricy): ');
readln(n);   {считываем размер матрицы}
for i:=1 to n do
for j:=1 to n do
 begin write('M[',i,',',j,']='); readln(m[i,j]); end;    {считываем САМУ матрицу}
 
for i:=1 to n-2 do begin  kol:=0;
for j:=1 to n do
if m[i,j]=m[i+2,j]-m[i+1,j] then  inc(kol); {здесь  определяем является ли число - Фибонначи}
k[i]:=kol;
                   end;
 
for i:=1 to n do  begin   writeln;
for j:=1 to n do write(m[i,j],' ');  {выводим на экран Марицу}
                  end;
 writeln;writeln;
 writeln('Kol-vo cisel FIBONACI v kajdoi strore');
for i:=1 to n do writeln(i,')= ',k[i]);      {выводим РЕЗУЛЬТАТ к каждой строке}
 
readln;
end.