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

PascalABC.NET 3.2:begin  ReadArrInteger(5).Select(x->x*x).Printlnend.Пример ввода:1 -2 3 -4 5Пример вывода:1 4 9 16 25

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