%begin
%constintegerarray a(1:3,1:4)=1,2,3, 4,5,6, 7,8,9, 10,11,12
%constinteger i=3,j=4
%integer y
y=a(i,j)
%if y=12 %then printstring("Test OK") %else write(y,2)
%endofprogram