Работа с циклическими конструкциями.

uses crt;
var i,j,k,n:integer;
    s1,p1:real;{для подсчета сумм при значениях >maxLongint}
    s,p:longint;
begin
clrscr;
write('n=');
readln(n);
s1:=0;
for i:=1 to n do
 begin
  p1:=1;
  for j:=1 to 2*i do
  p1:=p1*i;
  s1:=s1+p1;
 end;
writeln('Сумма при n=',n,' S=',s1:0:0);
writeln('Суммы не превышающие тип Longint:');
i:=1;
s:=0;
while s>=0 do
 begin
  s:=0;
  for k:=1 to i do
   begin
    p:=1;
    for j:=1 to 2*k do
    p:=p*k;
    s:=s+p;
   end;
  if s>0 then
   begin
    writeln('n=',i,' S=',s);
    i:=i+1;
   end;
 end;
readln
end.

uses crt;
var i,j,s,imn,mn:integer;
    f:boolean;
begin
clrscr;
write('Число');
gotoXY(35,1);write('Делители');
gotoXY(70,1);writeln('Сум.дел.');
for i:=1 to 79 do
write('-');
writeln;
mn:=100;
imn:=0;
for i:=290 to 310 do
 begin
  write(i,'  ');
  f:=false;
  s:=0;
  for j:=2 to i div 2 do
  if i mod j=0 then
   begin
    write(j:4);
    s:=s+j;
    f:=true;
   end;
  if f and(s<=mn)then
   begin
    mn:=s;
    imn:=i;
   end;
  gotoXY(70,i-287);
  writeln('   ',s);
 end;
for i:=1 to 79 do
write('-');
writeln;
write('Наибольшее число с наименьшей суммой делителей=',imn,' сумма=',mn);
readln
end.