В-2 напишите фрагмент программы, которая преобразует массив из десяти элементов следующим образом: все положительные элементы заменяет их квадратами, а остальные заменяет 1

For i := 1 to 10 do
        if a[i] > 0 then
            a[i] := a[i] * a[i]
        else a[i] := 1;