===== PascalABC.NET =====
begin
var n := ReadlnInteger;
var a := ReadArrInteger(n);
var s1 := a[0::2].Sorted;
var s2 := a[1::2].SortedDescending;
var s3 := s1.Interleave(s2);
if n.IsOdd then
s3 := s3 + s1.Last;
a := s3.ToArray;
a.Println;
end.
Ответ: 4.
Конечно, прокручивать это все "в уме" смысла нет. См. вложение.
A = float(input())b = float(input())print('perimeter:',(a+b)*2,'area:',a*b)
// PascalABC.NET 3.3.5
begin
var xa, xb, xc, ya, yb, yc: real;
readln(xa, ya, xb, yb, xc, yc);
writeln(abs((xa - xc) * (yb - yc) - (xb - xc) * (ya - yc))/2);
end.