ריבוע קסם (פסקל)

[ZuBi]

שלום, נתנו לי תוכנית לבנות רייבוע קסם למי שלא יודע על מה מדובר אז אין טעם...

קיצר ניסתי לבנות את זה

ואני לא יודע 2 החוקים הראשונים עובדים אבל החוק השלישי לא טוב כאילו זה לא יורד שורה ואמרתי לו לרדת

עם מישהוא מוצא תבעיה תודה..

Program Kesem_Do;
Uses crt;
Const n=5;
Type
Viper=array[1..n,1..n] of integer;

Procedure Eipos(var non:viper); { Eipos Main Procedure }
          var i,b:integer;
              begin
                   for i:=1 to n do
                       for b:=1 to n do
                           non[i,b]:=0;
end;

Procedure Kesem(var non:viper); { Kesem Main Procedure }
          var x,y,mone:integer;
              begin { Of Kesem Procedure }
              mone:=1;
              x:=(n div 2)+1;
              y:=1;
              non[y,x]:=mone;
              while mone <> n*n do
              begin
              inc(mone);
              dec(x);
              dec(y);
              if y=0 then y:=n;
              if x=0 then x:=n;
              if non[y,x] <> 0 then inc(y);
              non[y,x]:=mone;
              end;
              end;
var x,y:integer;
    Non:Viper;
    begin
          Clrscr;
          Eipos(Non);
          Kesem(non);
          for x:=1 to n do
              begin
              writeln;
              for y:=1 to n do
              begin
              write(non[x,y]:n);
              end;
              end;


end.
/code]

[Ran B]

העיינים יוצאות לי מהמקום.

אתה לא יכול לעשות

[lef t] (יישור לשמאל..) בלי רווח כמובן..

.