var a:array[1..3] of longint; i:longint; max,min:real; begin min:=100000000; for i:=1 to 3 do begin read(a[i]); if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; max:=max+min; min:=max/2; writeln(max:0:0); write(min:0:1); end. /************************************************************** Problem: 1719 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/