решите задание пожалуйста)

Подсчитать, сколько человек недопущено ко второму экзамену.
"язык паскаль"

Найти сумму
1,1-1,2+1,3.......1.n
n- целое, вводится с клавиатуры

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значение от -1000 до 1000.Гарантируется, что последний элемент массива отличен от нуля.
Приведите фрагмент программы вместо ... на языке Паскаль.
const N=30;
var
a: array [1..N] of integer;
i, x, y: integer;
s: real;
begin
for i;=1 to N do readln(a[i]);
.......
end.
ниже скрин задания.

(х > 4) v ((х > 1) => ( х > 4))

c, d.

Найти max (max(a, b), max(a, c), max(a, d)).Числа получить случайным
образом на интервале [-50..+50]