var
  tomb : array [1..5] of integer = (9, 3, 5, 4, 7);
  meret, osszeg, i : integer;

begin
    meret := 5;
    osszeg:= 0;
    for i := 1 to meret do
        osszeg := osszeg + tomb[i];
end.