Срочно! Скласти програми до трьох задач!

//первая программа var a: array[1… 10] of integer; Sr, i: integer; begin Sr: =0; for i: =1 to 10 do begin write ('a[', i, ']='); readln (a[i]); if i mod 2=0 then Sr: =Sr+a[i]; end; writeln ('Среднее арифметическое элементов стоящих на четных местах: ', Sr / (10 div 2); end. //вторая программаvar a: array[1… 3, 1… 3] of integer; Pr, count, summ, i, j: integer; begin pr: =1; summ: =0; count: =0; for i: =1 to 3 do for j: =1 to 3 do begin write ('a[', i, ', ', j, ']='); readln (a[i, j]); if i mod 2=1 then pr: =pr*a[i, j]; if a[i, j] < 0 then begin summ: =summ+a[i, j]; count: =count+1; end; end; writeln ('Произведение элементов стоящих в четных строках: ', pr); if count <> 0 then writeln ('Среднее арифметическое отрицательных элементов: ', summ / count) else writeln ('Нет ни одного элемента отрицательного элемента'); end. //третья программаvar s: string; c: char; i: integer; begin s: ='Мадагаскар'; writeln ('Исходная строка: '); writeln (s); for i: =1 to Length (s) div 2 do begin c: =s[i]; s[i]: =s[Length (s) — i+1]; s[Length (s) — i+1]: =c; end; writeln ('Перевернутая строка: '); writeln (s); end.