RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Prolog/create-a-two-dimensional-array-at-runtime.pro

:- dynamic array/2.

run :-
    write('Enter two positive integers, separated by a comma: '),
    read((I,J)),
    assert(array(I,J)),
    Value is I * J,
    format('a(~w,~w) = ~w', [I, J, Value]),
    retractall(array(_,_)).