Составьте программу которая формирует массив из 13 случайных чисел, от 0 до 30, меняет местами 4-й и 9-й элементы и выводит значения элементов массива на экран до и после обмена.
Pascal ABC

const n=13;var a:array[1..n] of integer;i,c:integer;beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(31); write(a[i]:4); end;writeln;c:=a[4]; a[4]:=a[9]; a[9]:=c;for i:=1 to n do write(a[i]:4);writeln;end.Пример:Массив A:11 25 20 0 7 28 27 26 23 25 12 24 2011 25 20 23 7 28 27 26 0 25 12 24 20