Написать программу которая вводит n элементов массива и вычисляет произведение первого и последнего элемента массива

var   a:array [1..50] of integer;   i,n,p:integer; begin   repeat    write ('Razmer massiva: ');    readln(n);   until n in [1..50];   for i:=1 to n do    begin     write ('A[',i,'] = ');     readln(a[i]);    end;   p:=a[1]*a[n];   writeln ('Proizvedenie: ',p);   readln; end.