{ Ввод данных }
if b < a then
   begin
     buf:= a;
     a:= b;
     b:= buf;
   end;
 if c < a then
   begin
     buf:= a;
     a:= c;
     c:= buf;
   end;
 if c < b then
   begin
     buf:= b;
     b:= c;
     c:= buf;
   end;
{ Вывод }