ПОМОГИТЕ ПОЖАЛУЙСТА!!! ХОТЯ БЫ ОДНУ

Задача 1. Найти сумму пяти целых чисел массива.
Program z1;
usescrt;
var a:array [1..5] of integer;
..., i:integer;
Begin
...: = 0;
Writeln ('Введитеэлементымассива');
for i: = 1 to 5 do
readln (....);
for i: = 1 to 5 do
...: = s+ a[i];
Writeln ('…. = ',….);
End.

Задача 2. Найти среднее арифметическое число в массиве.
Program z1;
usescrt;
var a:array [1..5] of integer;
..., i:integer;
...: real;
Begin
...: = 0;
Writeln ('Введитеэлементымассива');
for i: = 1 to 5 do
readln (....);
for i: = 1 to 5 do
...: = ...+ ....;
....: = .......;
Writeln ('sr = ',sr);
End.

Задачу 3.Вывести на экран элементы массива в обратном порядке.
program array1;
var
a: array[1..8] of integer;
i: …….;
begin
write('Введите элементы массива:');
for i : = ….. to …… do
read (……);
write('Элементы в обратном порядке: ');
for i : = …………………….do
write( …)
end.