===== PascalABC.NET =====
begin
var x := ArrRandom(20, -99, 99);
x.Println;
var (imax, imin) := (x.IndexMax, x.IndexMin);
var t := (x.First + x.Last) div 2;
(x[imax], x[imin]) := (t, t);
x.Sum.Print
end.
Бит - минимальная еденица
var a := ReadArrReal(8);
a[::-1].Println
r = float(input())
s = 3.14 * r * r
p = 3.14 * 2 * r
print("%.3f" % s)
print("%.3f" % p)