Написать программу, меняющую местами три данных числа

Эмм ну вот смотри, вводим числа, readln(a,b,c) потом, меняем местами write(c,b,a) вот полный код: var a,b,c: integer; begin readln(a,b,c); writeln(c,b,a); end.

Function sum_del(x: longint): longint; var     s, i: longint; begin     s : = 0;     for i : = 1 to x div 2 do         if x mod i = 0 then             s : = s + i;     sum_del : = s; end; var     i, s1, s2: longint; begin     for i : = 1 to 100000 do     begin         s1 : = sum_del(i);         s2 : = sum_del(s1);         if (s2 = i) and (s1 < i) then             writeln(s1, ' ', i);     end; end.

Для того чтобы перевести из двоичной системы счисления в десятичную необходимо сложить произведение цифры разряда со степенью двойки  (показатель системы из которой переводим). определяем степень (последнее число имеет нулевую степень, каждое следующее +1): 43210 11110 получаем: 11110=1*2^4+1*2^3+1*2^2+1*2^1+0*2^0=16+8+4+2+0=30 11110  (2)=30 (10) для того чтобы перевести из восьмеричной  системы счисления в десятичную необходимо сложить произведение цифры разряда со степенью восьмерки (показатель системы из которой переводим). определяем степень (последнее число имеет нулевую степень, каждое следующее +1): 210 372 получаем: 372  (8) = 3*8^2+7*8^1+2*8^0=192+56+2=250  для того чтобы перевести из шестнадцатеричной  системы счисления в десятичную необходимо сложить произведение цифры разряда со степенью шестнадцати (показатель системы из которой переводим). определяем степень (последнее число имеет нулевую степень, каждое следующее +1): 210 32а учитывая соответствие букв в шестнадцатеричной системе числам в десятичной: а - 10 b - 11 c - 12 d - 13 e - 14 f - 15  получаем: 32а (16) = 3*16^2+2*16^1+10*16^0=768+32+10=810.