Создать массив размерностью 5 на 5 в диапазоне от -20 до 20. k, n = 1, 2, 3, 4, 5. Вывести его на экран в виде таблицы (матрицы). Вычислить количество положительных элементов и их про¬изведение.

var a: array[1..5,1..5] of integer; i,j,p,s: integer; begin  Writeln('Введите элементы матрицы: ');   for i:= 1 to 5 do     for J:=1 to 5 do    read(a[i,j]);        for i:= 1 to 5 do    begin    for j:= 1 to 5 do    write(A[i,j], ' '  ) ;        writeln();     end;           p:= 1;    s:= 0;     for i:= 1 to 5 do     for J:=1 to 5 do     if a[i,j] > 0 then       begin     s:= s+1;      p:= p*a[i,j];         end;     Writeln('Количество положительных элементов = ', s);    Writeln('Произведение положительных элементов = ', p);     end.