Ответ:

var a: array [1..3] of integer;

min, max, i: integer;

Begin

For i:= 1 to 3 do readln(a[i]);

max:= a[1];

min:= a[3];

For i:= 1 to 3 do Begin

  if a[i] > max then max:= a[i]

                      else if a[i] < min then min := a[i];

                          end;

Write(min,' ',max );

end.

Объяснение:

Решение на Паскале, через массив, методом перебора. (изначально максимуму и минимуму присвоено произвольное значение)