program 2;
CONST
    MAX = 500;
TYPE
    TPEntero = ^integer;
    TTabla = array [1..MAX] OF TPEntero;
VAR
    tabla1 : TTabla;
FUNCTION ej2(t: TTabla): integer;
VAR
    i: integer;
    acc: integer;
BEGIN
    acc := 0;
    FOR i:=0 TO MAX DO
    BEGIN
        acc := t[i]^ + acc;
    END;
    ej2 := acc;
END;
begin
    ej2(tabla1);
end.