الگوریتم جدول کارنو

اصلا می خوام بدونم برای نوشتن برنامه جدول کارنو سه متغیره چه کار باید کرد اگر کد نمونه ای باشد خیلی راحت تر می توان آنرا پیاده سازی کرد اگر شما چیزی بلدید درمورد روش کار مثلا برای همین 3 متغیره , کمی کمک کنید متشکر می شوم

سلام
دیدم همگی به این برنامه نیاز دارید منم اونو در اختیارتون میزارم
البته با پاسکاله

uses
crt;
var
a:array[1..10,1..10]of byte;
row,col,i,j,n,x,y:integer;
begin
clrscr;
write('Enter number(odd): ');
readln(n);
writeln;
row:=1;
col:=n div 2+1;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
a[row,col]:=1;
for i:=2 to n*n do
begin
row:=row-1;
col:=col-1;
if(row=0) then
row:=n;
if(col=0) then
col:=n;
if(a[row,col]=0) then
a[row,col]:=i
else
begin
if (row>=n) and (col>=n) then
begin
row:=row-n;
col:=col-n;
end;
row:=row+2;
col:=col+1;
a[row,col]:=i;
end;
end;
for x:=1 to n do
begin
for y:=1 to n do
begin
if (a[x,y]>=1) and (a[x,y]<=9) then
write(' ');
write(' ',a[x,y]);
end;
writeln;
end;
readln;
end.

ببخشید از همتون این جدول جادوئی بود که اشتباها اینجا گذاشتم
شرمنده از روتون

ببخشید از همتون این جدول جادوئی بود که اشتباها اینجا گذاشتم
شرمنده از روتون

لطف می کنی الگوریتم این جدول کارنو رو بگی