Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>
A[ A[5]] = A[4] = 1
=====================
var p:integer;
begin
readln (p);
if (p=2)then writeln ('-1') else
writeln ((p*p-1)/2+1);
end.
3+1=4-1=100(милибайтов)-27=73(милибайтов)
ответ:73 милибайта