Сформировать одномерный массив из n элементов следующим образом: элемент с четным номером равен номеру в квадрате, элемент с нечетным номером-корню квадратному из номера

// PascalABC.NET 3.0, сборка 1088
const
  nn=100;
var
  a:array[1..nn] of real;
  i,n:integer;
begin
  Write('Количество элементов в массиве: '); Read(n);
  for i:=1 to n do begin
    if Odd(i) then a[i]:=sqrt(i)
    else a[i]:=sqr(i);
    Write(a[i]:0:4,' ')
    end;
  Writeln
end.

Тестовое решение:
Количество элементов в массиве: 12
1.0000 4.0000 1.7321 16.0000 2.2361 36.0000 2.6458 64.0000 3.0000 100.0000 3.3166 144.0000

Var A:array[1..100] of real;
i,N:integer;
begin
Readln(N);
For i:=1 to N do
begin
If i mod 2=0 then
A[i]:=sqr(i)
else
A[i]:=sqrt(i);
end;
For i:=1 to N do
Write(A[i],' ');
end.