Дан двухмерный массив "б" переписать в массив "а"в обратном порядке ( составляется в паскале)!

Program primer; uses crt; var i,n: integer;       a: array[1..100] of integer;       begin clrscr;           randomize;           write('pazmer massiva  = ');           readln(n);                     for i: =1 to n do           a[i]: = random(100)-50;                     for i: =1 to n do           write(a[i]: 5);                     writeln;           writeln;                     for i: =n downto 1 do           write(a[i]: 5);           readln; end.

Можно заметить, что нас с каждым днем окружает все больше электронных приборов, делающих нашу жизнь проще. компьютеры, телевизоры, сотовые телефоны, электрочайники, умные автомобили и много чего еще в этом духе. в принципе удивительного в этом ничего нет. человек стремится максимально улучшить, свою жизнь, избавить себя от рутины. для этого он изобретает все новые и более совершенные технологии. так были изобретены первые роботы. роботы уже полной мерой вошли в нашу жизнь. теперь мы просто не представляем ее без них. некоторые роботы готовят еду, некоторые роботы разносят лекарства, убирают, стирают и выполняют огромное количество других функций. если заглянуть немного в будущее, то можно предположить, что появятся роботы, которые будут нам по дому, будут для нас что-то типа прислуги. смогут выгуливать наших животных, нашим детям готовить , сидеть с младенцами, когда родителям нужно отъехать куда-нибудь. да и внешне они будут выглядеть точно также как и люди.

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 uses crt; var n: longint;     k: byte;   procedure krz (c: longint; var kz: byte); var m: set of byte;     z: byte; begin if c< 0 then c: =c*(-1); if c=0 then kz: =1 else     begin     m: =[];     kz: =0;     while c> =1 do           begin           if not (c mod 10 in m) then             begin             inc(kz);             m: =m+[c mod 10];             end;           c: =c div 10;           end;     end; end;   begin write('n='); readln(n); krz (n,k); writeln(k,' различных цифр'); readln; end.