Оформить через процедуры и функции + используя модуль.

uses CRT;
const nn=10;
var a:array [1..nn] of real;
     i,Num,n:integer;
     S,x:real;
begin
 clrscr;
 write ('n= ');
  readln (n);
  S:=0;
  Num:=0;
  for i:=1 to n do
    begin
      if i div 2=i/2 then
        begin
          x:=sin(i^2-1);
          if x>0 then
          S:=S+x
        end
      else x:=i^3 +i^2+i+1;
      if x<0 then inc(Num);
    end;
writeln ('S=',S,'Num=', Num);
end.

unit summa;
interface
const nn=100;
procedure SumKol(n:byte);
implementation
procedure SumKol(n:byte);
var  i,Num:integer;
     S,x:real;
begin
S:=0;
Num:=0;
for i:=1 to n do
 begin
  if i mod 2=0 then x:=sin(i*i-1)
  else x:=i*i*i+i*i+i+1;
  write(x:0:2,' ');
  if (x>0)and(frac(x)=0)and(trunc(x) mod 2=0) then S:=S+x
  else if x<0 then inc(Num);
 end;
writeln;
writeln ('Сумма положительных четных=',S:0:0);
writeln('Количество отрицательных =', Num);
end;
end.

uses CRT,summa;
var n:byte;
begin
clrscr;
repeat
write ('Введите количество компонент до ',nn,' n= ');
readln (n);
until n in [1..nn];
SumKol(n);
readln
end.

procedure SumKol(n:byte);