СРОЧНО!!!сформировать одномерный массив из 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.