Дан массив вещественных чисел. Вывести на экран новое состояние массива ,

program zz1;
const n=5; // задаем количество чисел в массиве
var i:integer; // задаем переменную целого типа
x:array [1..n] of real;
begin
for i:=1 to n do // организуем цикл, в котором введем с клавиатуры n данных чисел в массив
read(x[i]);
for i:=1 to n do // организуем цикл, в котором проверяем, если номер элемента массива нечетный, то из элемента массива извлекаем квадратный корень
if i mod 2 = 1 then x[i]:=sqrt(x[i]);
for i:=1 to n do
write(x[i]:5:2); // выводим приобретенные числа из массива в строчку в формате пять знаков для числа и два знака после запятой
end.