program SumPositive;

var
  a: array[1..5, 1..5] of integer;
  i, j, s: integer;
begin
  s := 0;

  writeln('Введите 25 чисел:');
  for i := 1 to 5 do
    for j := 1 to 5 do
      read(a[i, j]);

  for i := 1 to 5 do
    for j := 1 to 5 do
      if a[i, j] > 0 then
        s := s + a[i, j];
  writeln('Сумма положительных: ', s);
end.