t_11_2_б_в_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
Б)подзадача: найти наибольшую и наименьшую цифры в записи неотр. числа
  задача: изменить значение логической переменной на противоположное, если у чисел k^2 и (k+1)^2 совпадают наибольшие и наименьшие цифры
В)подзадача: значения 2х вещественных переменных перераспределить так, чтобы в первой из них оказалось большее значение, а во второй - меньшее
  задача: значения переменных a,b,c перераспределить так, чтобы a>=b>=c}
{Б}
     procedure figures(k:integer; var maxf,minf:integer);
         var f:integer;
         begin
              maxf:=-1;
              minf:=10;
              repeat
                 f:=k mod 10;
                 k:=k div 10;
                 if f>maxf then maxf:=f;
                 if f<minf then minf:=f;
              until k=0;
         end;
     var b:boolean; k:integer; minf1,minf2,maxf1,maxf2:integer;
     begin
         read(k);
         b:=false;
         figures(sqr(k),maxf1,minf1);
         figures(sqr(k+1),maxf2,minf2);
         if (maxf1=maxf2) and (minf2=minf1) then b:= not(b);
         writeln(b);
     end.
{В}
     procedure tran(var x1,x2:integer);
         begin
             if x1<x2 then
                begin
                   x1:=x2+x1;
                   x2:=-(x2-x1);
                   x1:=x1-x2;
                end;
         end;
     var a,b,c:integer;
     begin
      readln(a,b,c);
      tran(a,b);
      tran(a,c);
      tran(b,c);
      write(a:3,b:4,c:5);
     end.