Напишите программу нахождения суммы первого и последнего элементов целочисленного массива. в массиве 5 элементов , которые вводятся с клавиатуры хеелпп

Var i,q,a:integer; вот лови броbeginfor i:=1 to 20 do beginread(a);q:=q+a;end;  writeln(q);end.