Дано 5 целочисленных массивов: а1, а2, а3, а4, а5 из 5 элементов каждый

const n=5;
type mas=array[1..n] of integer;
procedure zap_mas(var a:mas);
var i:byte;
begin
for i:=1 to n do
a[i]:=-10+random(21);
end;
procedure sum_mas(a,b:mas;var c:mas);
var i:byte;
begin
for i:=1 to n do
c[i]:=a[i]+b[i];
end;
procedure vyvod(a:mas;s:string);
var i:byte;
begin
write(s);
for i:=1 to n do
write(a[i]:4);
writeln;
end;
function sum(a:mas):integer;
var i:byte;
    s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+a[i];
sum:=s;
end;
function prz(a:mas):integer;
var i:byte;
    p:integer;
begin
p:=1;
for i:=1 to n do
p:=p*a[i];
prz:=p;
end;
var a1,a2,a3,a4,a5:mas;
    i,j:byte;
begin
zap_mas(a1);
zap_mas(a2);
sum_mas(a1,a2,a3);
sum_mas(a2,a3,a4);
sum_mas(a3,a4,a5);
writeln('Полученные массивы');
vyvod(a1,'a1:');
vyvod(a2,'a2:');
vyvod(a3,'a3:');
vyvod(a4,'a4:');
vyvod(a5,'a5:');
writeln('Сумма элементов первого массива=',sum(a1));
writeln('Сумма элементов пятого массива=',sum(a5));
writeln('Произведение элементов второго массива=',prz(a2));
writeln('Произведение элементов четвертого массива=',prz(a4));
end.