Program Min_Max;
uses crt;
var a:array[1..3] of integer;
i,min,max:integer;
begin
Textcolor (12);
For i:=1 to 3 do
Begin
A[i]:=random(100);
Write(A[i]:4);
End;
Writeln;
min:=a[1];
for i:=1 to 3 do
begin
if a[i]>max then
max:=a[i];
if a[i]<min then
min:=a[i];
end;
write(' ');
for i:=1 to 3 do
begin
if a[i]=max then
Begin
textcolor(12);
write(max:3);
End;
if a[i]=min then
Begin
textcolor(9);
write(min:3);
End;
if (a[i]<>min) and (A[i]<>max) then
Begin
textcolor(14);
write(A[i]:3);
End;
End;
readln;
end.
Объяснение:
1. Перевод чисел в десятичную систему счисления
Например: 
Нужно найти сумму произведений каждого разряда числа на основание системы счисления (в данном случае это 8) в степени порядкового номера разряда, начиная с 0 от разряда единиц.
2. Перевод чисел из десятичной системы счисления
Например: 
Нужно делить исходное число и получаемые частные на основание требуемой системы счисления (в данном случае это 16) и записывать остатки. Потом необходимо в обратном порядке начиная с последнего частного записать остатки.
285 / 16 = 17 и ост. 13
17 / 16 = 1 и ост. 1
Сначала пишем последнее частное (выделено жирным), а потом все остатки в обратном порядке: 11 13 (заменяем 13 на его обозначение в 16-ричной системе) = 11D₁₆
3. Сложение двух чисел в двоичной системе счисления
Точками отмечены перенесенные в этот разряд единицы.
Сложение в двоичной системе в столбик происходит так же, как и в десятичной, только: 1 + 1 = 10 (остается ноль, а единица переносится в следующий разряд), 1 + 1 + 1 = 10 + 1 = 11 (остается единица, а вторая единица переносится в следующий разряд).
