program CountPositiveElements;

var
X: array [1..3, 1..3] of Integer;
i, j, count: Integer;

begin
count := 0;

writeln('Введите элементы массива X(3,3):');
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
readln(X[i, j]);
if X[i, j] > 0 then
count := count + 1;
end;
end;

writeln('Количество положительных элементов в массиве X(3,3): ', count);
end.