Паскаль авс.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.

[5261, 5281, 5333, 5351, 5393, 5399, 5407, 5441, 5443, 5449, 5483, 5519, 5531, 5557, 5573, 5591, 5623, 5641, 5647, 5669, 5683, 5689, 5711, 5717, 5737, 5779, 5791, 5801, 5807, 5821, 5827, 5843, 5849, 5861, 5867, 5869, 5881, 5939, 5953, 6011, 6037, 6053, 6073, 6079, 6091, 6101, 6121, 6143, 6163, 6211, 6217, 6257, 6271, 6277]
54

#Код программы на Ruby22
t=[]
primes = NumberHelpers::getPrimeNumbers(6288, nil)
primes.each do |pr|
    t << pr if pr >= 5232 and NumberHelpers::GetNumbersSum(pr) % 2 == 0
end
p t
p t.size

def getPrimeNumbers(max, primes)
        primes = [2] if primes == nil

        for i in (primes.last+1)..max
            f = false
            primes.each do |pn|
                f = (f or (i % pn==0))
            end
            primes<<i if not f
        end
        p primes.last
        return primes
    end

def GetNumbersSum(n)
        n = n.to_s.chars
        sum = 0
        n.each do |c|
            sum += c.to_i()
        end

        return sum
    end

Запись (record) &mdash; это пользовательский тип данных, котоорый может содержать поля с различными типами данных, например:

type
  schools = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
  students = record
     name, surname : string;
     age : byte;
     school : schools;
  end;

Для обращения к полям записи из главной программы необходимо разделять имя переменной типа Запись и поля, которое оно содержит, символом "." (точка). Например:

var
  student : students;

begin
  student.name := 'Иван';
  student.surname := 'Пупкин';
end.

Если необходимо получить или изменить значения нескольких полей записи, то удобнее использовать конструкцию with:

begin
  with student do begin
     name := 'Вася';
     surname := 'Пупкин';
     age := 12;
     school := 5;
  end;
end.