В одномерном массиве х(15) найти: минимальный из элементов, больших двух, и поменять его местами с первым. Массив нужно вводить вручную.

CONST n = 15DIM x(1 TO n) AS INTEGERCLSPRINT "Введите 15 чисел"im = 1FOR i = 1 TO n   INPUT x(i)   IF x(i) > 2 AND x(i) < x(im) THEN im = iNEXT iDIM t AS INTEGERt = x(1)x(1) = x(im)x(im) = tFOR i = 1 TO n   PRINT x(i);NEXT iТестовое решениеВведите 15 чисел? 5? 8? -3? 11? 4? 8? 4? 0? 5? 2? 9? 3? 11? 6? 4 3  8 -3  11  4  8  4  0  5  2  9  5  11  6  4