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

// PascalABC.NET 3.0, сборка 1088const  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;  Writelnend.Тестовое решение:Количество элементов в массиве: 121.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;beginReadln(N);For i:=1 to N dobeginIf i mod 2=0 thenA[i]:=sqr(i)elseA[i]:=sqrt(i);end;For i:=1 to N doWrite(A[i],' ');end.