:составьте программу ввода с клавиатуры элементов массива a[1..10] и вывода на экран элементов, значения которых являются квадратами целых чисел. вот что я составил, но извлечение корня нельзя делать в integer: ( ! program shist; var a: array [1..10] of integer; i: integer; begin writeln('введите элементы массива: '); readln(i); writeln('элементы массива, значения которых являются квадратами целых чисел: '); for i: =1 to 10 do if sqrt(i) then write (a[i], ' ') end.