Вдиапазоне от a до b вычислить квадратные корни всех целых чисел.паскаль.

Program gt; var a,b,i: ineteger; begin readln(a,b); for i: =a+1 to b-1 do writeln(i,' ',sqrt(i)); end.

1)  z = 0 считаем количество нечётных элементов массива15  (нечётное)    z  =  1 17    (нечётное)    z  =  2 24      (чётное)    z  =  2 18          (чётное)    z  =  2 13    (нечётное)    z  =  3 28      (чётное)    z  =  3 18          (чётное)    z  =  3 95  (нечётное)    z  =  4 19    (нечётное)    z  =  5 17    (нечётное)    z  =  6 ответ: 62)  s = 24 (первому элементу массива)сравниваем со следующими элементами массива, если элемент больше s присваиваем  s значение большего элемента7 > 24 (нет)14  > 24 (нет) 8  > 24 (нет) 56  > 24 (да)      s = 56 12  > 56  (нет) 48  > 56  (нет) 25  > 56  (нет) 19  > 56  (нет) 17  > 56  (нет) ответ: 56

Const nx =0; var s,i,j,z,n: integer; a,b: array[1..nx] of integer; begin  writeln('ввести конец интервала n');   n: = readinteger();       for i: =1 to n do begin      write(i: 3);       if i mod 4 = 0 then  begin z : = z +1; a[i]: =i; end;       if i mod 3 = 0 then begin s : = s +1; b[i]: =i; end;     end;     writeln;     writeln('кратных 4 ',z,a); write('кратных 3 ',s,b); end.