Задание №1
Выполнить уровень А
Выполнить уровень В
Выполнить уровень С

Өйткені ол кезде қазақ халқының саны жағынан ең үлкен және кіші жүздің ханы жолбарыс хан даңғылы бойында орналасқан ол кезде қазақ мен өлгенде оның үстіне ол кезде қазақ хандығының қол астына көшті

Program   magicsquares;   {построение магических квадратов}  uses   crt;   type  a_type=array [1..50,1..50]  of integer ;   var   i,j,n: integer;   a: a_type;   t: boolean;   {логическая переменная true (правда) или false (ложь)}  x,y: integer;   label 1;   {метка}  procedure   print(n: integer; a: a_type);   {процедура вывода}  var   i,j: integer;   begin  for  i: =1   to  n   do  begin  for  j: =1   to  n   do   write(a[i,j]: 4);   writeln('' );   end;   end;   procedure   winsh(x1,y1,x2,y2,col1,col2: word);   {процедура вывода окна}  begin  textbackground(black);   window (x1+1,y1+1,x2+1,y2+1);   {тень - черный прямоугольник}  clrscr;   textbackground(col1);   window(x1,y1,x2,y2);   clrscr;   textcolor(col2);   {рисование рамки}  gotoxy(2, 1); write('г' );   for  i: =1   to  x2-x1-2   do   write('=' );   gotoxy(x2-x1,1); write('=' );   gotoxy(2,y2-y1+1);   write('l' );   for  i: =1   to  x2-x1-2   do   write('=' );   gotoxy(x2-x1,y2-y1+1); write('-' );   for  j: =2   to  y2-y1   do  begin  gotoxy(2,j); write('¦' );   gotoxy(x2-x1,j); write('¦' );   end ;   end;   procedure   oddmagic(n: integer;   var   a: a_type);   {процедура формирования магического квадрата при нечетном n. описание алгоритма в сопроводительной записке }  var  i,j,k: integer;   p,l: integer;   begin  for  i: =1   to  n   do  for  j: =1   to  n   do   a[i,j]: =0;   j: =n  div   2 +1; p: =sqr(n); i: =1; a[i,j]: =1;   for  l: =2   to  p   do  begin  i: =i-1;   j: =j+1;   if  (i=0)   and  (j< > n+1)   then   i: =n;   if  (j=n+1)   and  (i< > 0)   then   j: =1;   if  ((i=0)   and  (j=n+1))   or  (a[i,j]< > 0)   then  {важен порядок условий! }  begin  i: =i+2;   j: =j-1;   end ;   a[i,j]: =l;   end;   end;   procedure   two (n: integer;   var   a: a_type);   {процедура построения квадрата при n обычной четности: n=6,10,14,}  var  u,i,j,k,m,z: integer;   b: a_type;   begin  u: = n  div   2;   m: =(u-1)  div   2;   oddmagic(u,b);   {вызов процедуры построения квадрата при нечет-ном u}  k: =u*u;   for  i: =1   to  n   do  for  j: =1   to  n   do  begin  if  (i> =1)   and  (i< =u)   and  (j> =1)   and  (j< =u)   then   a[i,j]: =b[i,j];   if  (i> =u+1)   and  (i< =n)   and  (j> =u+1)   and  (j< =n)   then   a[i,j]: =b[i-u,j-u]+k;   if  (i> =1)   and  (i< =u)   and  (j> =u+1)   and  (j< =n)   then   a[i,j]: =b[i,j-u]+2*k;   if  (i> =u+1)   and  (i< =n)   and  (j> =1)   and  (j< =u)   then   a[i,j]: =b[i-u,j]+3*k;   end;   for  i: =1   to  u   do  if  i=u  div   2+1   then  begin  j: = u  div   2+1;   for  k: =1   to  m   do  begin  z: =a[i,j];   {обмен данными}  a[i,j]: =a[i+u,j];   a[i+u,j]: =z;   j: =j-1  end;   end