Вывод максимального и минимального из 3-х чисел

Условия задачи

Входные данные

Входная строка содержит три целых числа, разделённых пробелами.

Выходные данные

В первой строке нужно вывести минимальное из введённых чисел, во второй строке - максимальное.

Обычная задача на проверку знаний условного оператора.

Решение задачи на Pascal

Var 
  a, b, c, max, min: integer;

Begin
  readln(a, b, c);
  max := a;
  min := a;

  If b > max Then
    max := b;
  If c > max Then
    max := c;

  If b < min Then
    min := b;
  If c < min Then
    min := c;

  writeln('Max: ', max, '. Min: ', min);
End.

Немного другой вариант задачи. Если необходимо отсортировать по возрастанию введенные числа:

Var a, b, c, t: Integer;
Begin
  Write('a b c: ');
  ReadLn(a,b,c);
  If b < a Then
    Begin
      t := a;
      a := b;
      b := t;
    End;
  If c < b Then
    Begin
      t := b;
      b := c;
      c := t;
    End;
  If b < a Then
    Begin
      t := a;
      a := b;
      b := t;
    End;
  WriteLn(a);
  WriteLn(c);
End.