PascalABC.NET
begin
var X := ReadArrReal(10);
var Y := X.Select(p -> 0.5 * Sqr(p)).ToArray;
for var i := 0 to X.High do
Writeln(X[i]:20:5, Y[i]:25:5)
end.
