CLS
INPUT "введи размер массива " ; n
DIM A(n + 2)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
NEXT i
'Сдвиг всех элементов массива вправо на две позиции
FOR j = 1 TO 2
FOR i = n TO 1 STEP –1
A(i+1) = A(i)
NEXT i
'Вставка нуля в начало массива
A(1)= 0
n = n + 1
NEXT j
FOR i = 1 TO n
'Вывод элементов массива
INPUT A(i);
NEXT i
n = n + 1
END