{* Задача355 *}

REM basic

' Задана последовательность целых чисел. Выяснить сумму элементов массива,у которых порядковый номер совпадает со значениями.


INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
    PRINT "vvedite"; i; "element";
    INPUT a(i)
    If a(i) = i Then s = s + i
Next
For i = 1 To n
    PRINT a(i);
Next
PRINT
PRINT "s="; s
End