program SumPositive;
var
  a: array[1..10] of integer;
  i, s: integer;
begin
  s := 0;
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
    read(a[i]);

  for i := 1 to 10 do
    if a[i] > 0 then
      s := s + a[i];

  writeln('Сумма положительных: ', s);
end.