Извлечение квадратного корня из любого элемента массива.

program Project1;
 
uses
  CRT;
const
  maxelem = 30;
type
  Tvector = array[1..maxelem] of integer;
 
var
  p,k: integer; { Переменные для хранения значения вводимых чисел}
  d: Tvector; {Переменные для хранения массивов}
  i: integer; { Вспомогательные переменные для организации циклов}
  n: integer; { Переменная для хранения значения количества элементов массива}
begin
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(n);
    if (n < 1) or (n > maxelem) then
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  writeln('Ввод данных в массив C: ');
  for i:= 1 to n do
    begin
      write('Введите значение элемента [',i,']: ');
      Readln(d[i]);     { Ввод значений в двумерный массив.}
    end;
  clrscr;
  writeln('Исходный массив D: ');
  for i:= 1 to n do
    write(d[i]:6,' ');        {Вывод элементов массива в консоль}
  writeln;
  write('Введите значение индекса числа, из которого нужно извлечь квадратный корень: ');
  Readln(p);
  writeln('Квадратный корень равен: ', sqrt(d[p]):0:4);
  write('Введите значение индекса первого числа для вычисления среднего арифметического: ');
  Readln(p);
  write('Введите значение индекса второго числа для вычисления среднего арифметического: ');
  Readln(k);
  writeln('Среднее арифметическое из двух чисел равно: ', ((d[p] + d[k])/2):0:4);
  Readln;
end.