program osszead3;
const n = 5;
      tomb: array[1..n] of integer = (1,-3,5,2,-5);
var eredmeny, i: integer;
begin
  writeln('Osszeadas 3.');
  eredmeny := 0;
  for i := 1 to n do
    eredmeny := eredmeny + tomb[i];
  writeln('Eredmeny: ', eredmeny);
  readln;
end.