program sum;

uses
  crt;

var
  n, i: integer;
  summa, l: real;

begin
  write('Ââåäèå êîë-âî ââîäèìûõ ÷èñåë: ');
  read(n);
  
  summa := 0;
  
  for i := 1 to n do
  begin
    write('Ââåäèòå ÷èñëî ¹', i, ' :');
    read(l);
    
    if l > 0 then summa := summa + l;
    
  end;
  
  write('Ñóììà ïîëîæèòåëüíûõ ÷èñåë ðàâíà:', summa);
  writeln;
  
end.