Дано 4-х значное число. вывести число, полученное перестановкой цифр тысяч и десятков. например: 4321=2341. программа паскаль. 50 !

Const   n=20; type   s=array[1..n] of integer; procedure sgen(a,b: integer; var m: s); { заполняет массив m случайными числами из интервала [a; b] } var   i: integer; begin   randomize;   for i: =1 to n do m[i]: =random(b-a+1)+a end; procedure swrite(sname: char; a: s); { выводит массив a с указанием имени sname в заголовке } var   i: integer; begin   writeln('последовательноcть ',sname);   for i: =1 to n do write(a[i],' ');   writeln end; function szeros(a: s): integer; { возвращает количество нулей в массиве a } var   i,k: integer; begin   k: =0;   for i: =1 to n do       if a[i]=0 then inc(k);   szeros: =k end; var   a,b,c,d,r: s;   nr: char;   za,zb,zc,zd,zr,i,mx: integer; begin   sgen(-5,5,a); swrite('a',a); za: =szeros(a);   r: =a; nr: ='a'; zr: =za;   repeat       sgen(-8,9,b); zb: =szeros(b);   until zb< > zr;   swrite('b',b);   if zb> zr then begin r: =b; nr: ='b'; zr: =zb end;   repeat       sgen(-9,3,c); zc: =szeros(c);   until zc< > zr;   swrite('c',c);   if zc> zr then begin r: =c; nr: ='c'; zr: =zc end;   repeat       sgen(-2,7,d); zd: =szeros(d);   until zd< > zr;   swrite('d',d);   if zd> zr then begin r: =d; nr: ='d'; zr: =zd end;   mx: =r[1];   for i: =2 to n do       if r[i]> mx then mx: =r[i];   for i: =1 to n do       if r[i]=0 then r[i]: =mx;   writeln;   swrite(nr,r) end. контрольное выполнение последовательноcть a -5 4 0 -1 2 -1 4 -5 3 3 1 5 -2 1 -1 -5 -1 -1 0 4 последовательноcть b -1 1 4 6 8 -1 -8 -8 5 4 -2 0 -2 8 3 -8 -6 -3 9 -7 последовательноcть c -4 -3 0 1 2 -4 -9 -9 0 0 -5 -4 -5 2 -1 -9 -8 -5 3 -8 последовательноcть d 1 3 5 5 7 2 -2 -2 5 5 1 2 1 6 4 -2 -1 1 7 -2 последовательноcть c -4 -3 3 1 2 -4 -9 -9 3 3 -5 -4 -5 2 -1 -9 -8 -5 3 -8

Var a: array[1..8] of integer; b: array[1..8] of integer; i: integer; begin write('заполните массив - '); for i: =1 to 8 do   read(a[i]); for i: =1 to 8   do   begin   if a[i]< (-5) then b[i]: =a[i]*3     else     begin       if a[i]> 7 then b[i]: =a[i]*5       else b[i]: =a[i];     end;   end; for i: =1 to 8 do   write(a[i],' '); writeln(); for i: =1 to 8 do   write(b[i],' '); end.