Дан массив из 15 чисел поменять местами 5 с 10 можешь программу написать

const n=15; var a: array[1… 15] of real; temp: real; i: integer; begin randomize; writeln ('Исходный массив: '); for i: =1 to n do begin a[i]: =(random (101) — 50) / 10; write (a[i], '); end; writeln; temp: =a[5]; a[5]: =a[10]; a[10]: =temp; writeln ('Преобразованный массив: '); for i: =1 to n do write (a[i], '); writeln; end.