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