Ответы и объяснения

2013-12-16T18:44:15+04:00
Program tutu;
Var
k, e, m, min, max, sr: integer;
begin
readln(k,e,m);
sr:=m;
if (k<e) then begin min:=k; max:=e; end else begin min:=e; max:=k; end;
if (min>sr) then begin min:=m; sr:=min; end;
if (max<sr) then begin sr:=max; max:=m; end;
writeln(max,sr,min);
end.