Найдите количество элементов двумерного массива A[1..5,1..5] равных 1. Массив заполните случайными числами в диапазоне от -10 до 10. Вывести массив на экран в виде таблицы и количество элементов равных 1.

VAR a:array[1..5,1..5]of integer; i,j,k:integer; begin   for i:=1 to 5 do      begin        writeln;           for j:=1 to 5 do                begin                   a[i,j]:=random(21)-10;                    write(a[i,j]:4);                       if a[i,j]=1 then                         k:=k+1;                end;       end; writeln; if k=0 then    writeln('нет =1') else     writeln(k); end.