Дан массив, состоящий из 12 случайных чисел от -5 до 12. Всего его элементы умножить на последний элемент.
Помогите пожалуйста

Program zadacha;
vara: array[1..12] of integer;i,n: integer;
beginfor i:=1 to 12 do begina[i]:=-5+random(12);write(a[i]:4);n:=a[12];end;writeln();for i:=1 to 12 do begina[i]:=n*a[i];write(a[i]:4);end;end.