program z7_74;
var
a: array[1..100] of integer;
i,k,n,max:integer;
begin
write('Введите количество элементов массива ');
readln(n);
for i:=1 to n do
begin
write('введите ',i,' элемент массива ');
readln(a[i]);
end;
k:=1;
max:=a[1]+a[2]+a[3]+a[4];
for i:=1 to n-4 do
if a[i]+a[i+1]+a[i+2]+a[i+3]> max then begin
k:=i;
max:= a[i]+a[i+1]+a[i+2]+a[i+3];
end;
writeln('максимальная сумма=',max);
for i:=3 to k+4 do
write(a[i]:5);
End.