Составьте программу сортировки по возрастанию значений трёх переменных: a, d,c.

Var       a, d, c, t: integer; begin       readln(a, d, c);       if a < d then begin t : = a; a : = d; d : = t; end;       if a < c then begin t : = a; a : = c; c : = t; end;       if d < c then begin t : = d; d : = c; c : = t; end;       writeln(a, ' ', d, ' ', c); end.

Наливаешь в 3-х литровую, переливаешь в 5, опять в 3-литровую, и опять в 5-ти, в трех литровой остается 1 литр. из пятилитровой выливаешь в 8-литровую назад, из 3- литровой переливаешь оставшийся литр в 5-литровую и еще раз полную трех литровую, у тебя в 8-литровой останется 4 литра и в 5-литровой тоже

Var   a: integer; begin   read(a);   while(a < > 0) do    begin     write(a mod 10);     a : = a div 10;   end; end.