Даны 3 числа. поменять местами большее и меньшее из этих чисел. написать в с(++) можно в паскале. заранее огромное

Pascal: program  project; var   a,b,c: integer;   min, max: integer; begin   write('a=');   readln(a);   write('b=');   readln(b);   write('c=');   readln(c);   if (a> b) and (a> c) then   begin         max: =a;         if b> c then         begin                        a: =c;             c: =max;         end         else         begin             a: =b;             b: =max;         end   end else   begin         if (b> a) and (b> c) then         begin             max: =b;             if a> c then             begin                            b: =c;                 c: =max;             end             else             begin                 b: =a;                 a: =max;             end         end else         begin             max: =c;             if a> b then             begin                            c: =b;                 b: =max;             end             else             begin                 c: =a;                 a: =max;             end         end   end;   write('a=',a);   write('b=',b);   write('c=',c) end.

Var m : array[1..10] of integer; i : byte; begin   for i: =1 to 10 do   begin     m[i]: =random(20)+1;     if odd(m[i]) then writeln(m[i]);   end; end.