Паскаль!!!
Создать целочисленный массив a размера n(<10) и заполнить его с клавиатуры. Вывести на экран введенный массив и результат суммы первого и последнего элемента массива.

VarA:array[1..10] of integer;n:integer;BeginWrite('n = ');Readln(n);For n:= 1 to n do    Read(A[n]);Write('Массив: ');For n:= 1 to n do    Write(A[n],' ');WriteLn;WriteLn('Сумма первого и последнего элемента: ',A[1]+A[n]);End.