Tipul de date tablou

Un sir de elemente de acelaşi tip, în care contează ordinea elementelor, se numeşte vector sau tablou unidimensional.

Problema:
 Scrieţi un program Pascal pentru care o funcţie dată prin tabelul de adevăr ne construieşte forma dizjunctivă normală-perfectă.


Uses CRT;
Type T=Array [ 1..50, 1..50 ] of 0..1;
Var A:T; N,I,J,K,P:Byte;
Begin
       ClrScr; Write ( ' Nr. de variabile=' ); Read( N );
P:=1; For I:=1 To N Do P:=P*2;
For I:=1 To N Do A [ 1,I ]:=0;
For I:=2 To P Do Begin
ForJ:=1 To N Do 
A [ I,J ]:=A [ I-1;J ];
K:=N;
While ( K>=1 ) and ( A[ I,K ]=1 ) Do 
Begin A [I,K ]:=0; dec (K) end;
A [ I,K ]:=1 end;
Writeln ('valorile lui y');
For I:=T To P Do begin
Write( '(' ); For J:=1 To N-T Do Write ( A[I,J],',');
Write( A[I,N],'='); Read (A[I,N+1] 
end.