{* Задача25 *}

Unit ZADACH25;
Interface
Implementation
Begin
 writeln('Поменять местами элементы k и h');
End.

CLS
INPUT "Введите число элементов массива"; n
DIM a(n)
For i=1 To n
PRINT "Введите a("; i; ")"
INPUT a(i)
NEXT i
For i=1 To n
PRINT a(i);
NEXT i
INPUT "Введите k и h"; k, h
SWAP a(k), a(h)
For i=1 To n
PRINT a(i);
NEXT i
End