program testarray2d;
var
    arr: array[0..4, 0..4] of integer;   {2 rows for 15 columns}
    counter,i,j: Integer;

Begin
    for i:=0 to 4 do
    begin
        for j:=0 to 4 do
        begin
            //arr[i, j] = i+j;
            write('Введите элемент [',i,'][', j, ']'); read(arr[i, j]); writeln();
            if (arr[i, j] = 7) then
            begin
                inc(counter);
            end;
        end;
    end;

    // Выводим массив в виде таблицы
    for i:=0 to 4 do
    begin
        for j:=0 to 4 do
        begin
            write(arr[i, j]:6);
        end;
        writeln();
    end;

    writeln('Количество 7ок в массиве: ', counter);

    // Delay for user input
    readln();
End.