Даны 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.

Вопрос с подвохом, пропускная меряется не от возможной передачи на стороне провайдера или пользователя, а от версии протокола 2СH (2 цэ-аш). Рассмотрим 2 последние версии. Протокол 2015 года поддерживал пропускную вплоть до 20 MB/WEBM. Стандарт нового протокола поразили многих экспертов, скорость была снижена вдвое. Но сделано это было в связи с отказом многих производителей сетевого оборудования устанавливать расширяющие микросхемы PassCODE для поддержки тех самых 20 MB/WEBM. Может в будущем, с большим распространением PassCODE пропускную поднимут, но пока приходится с этими ограничениями смирится и перекодировать WEBM что несомненно, приведет к ухудшению их качества. 

//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer; 

begin

  write('Введите два числа: ');

  readln(a, b);

  if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

  until (a mod с = 0) and (b mod с = 0);

  write('NOD = ', с)

end.

 

//2. Алгоритм с вычитанием (цикл while)

var  a, b: integer;

begin

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  while a <> b do

    if a > b then

      a := a - b

    else

      b := b - a;

  writeln('NOD = ', a);

end.