Паскаль авс.net програму массивы ! введите с клавиатуры пять целочисленных элементов массива x. выведите на экран значения квадратов каждого из элементов массива.

PascalABC.NET 3.2:
begin
  ReadArrInteger(5).Select(x->x*x).Println
end.

Пример ввода:
1 -2 3 -4 5

Пример вывода:
1 4 9 16 25

Const
   N = 5;
Var
   X:array[1..N] of integer;
   i:integer;
Begin
Write('Введите массив X(',N,'): ');
For i:= 1 to N do
    Read(X[i]);
WriteLn('Значения квадратов каждого из элементов:');
For i:= 1 to N do
    Write(' ',X[i]*X[i]);
End.