PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var x:=ReadArrReal('Ввводите значения х:',n);
for var i:=0 to n-1 do
Writeln(x[i]:10:5,(x[i]+2)**3:20:12)
end.
Пример
n= 5
Ввводите значения х: -3.17 12.43 28 -14 0.043
-3.17000 -1.601613000000
12.43000 3004.685307000000
28.00000 27000.000000000000
-14.00000 -1728.000000000000
0.04300 8.527173507000