Дано натуральное число, найти сумму всех его натуральных делителей - Pascal - Ответ 90462

uses crt;
function Treug(x,y,z:real):boolean;//функция определяет треугольник, или нет
begin
if(x<y+z)and(y<x+z)and(z<x+y)then Treug:=true
else Treug:=false;
end;
function Geron(x,y,z:real):real;//фунуция определения площади по формуле Герона
var p:real;
begin
p:=(x+y+z)/2;
Geron:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
var a,b,c,d:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
if Treug(a,b,c)then writeln('Sabc=',Geron(a,b,c):0:3)
else writeln('abc ne treugolnik!');
if Treug(a,b,d)then writeln('Sabd=',Geron(a,b,d):0:3)
else writeln('abd ne treugolnik!');
if Treug(a,c,d)then writeln('Sacd=',Geron(a,c,d):0:3)
else writeln('acd ne treugolnik!');
if Treug(b,c,d)then writeln('Sbcd=',Geron(b,c,d):0:3)
else writeln('bcd ne treugolnik!');
readln
end.

uses crt;
var a,i:2..maxlongint;
    sum:longint;
begin
clrscr;
write('a=');readln(a);
sum:=0;
for i:=2 to a div 2 do //в цикле от 2 до половины числа
   begin
     if a mod i=0 then //если делится
     sum:=sum+i;     //считаем
   end;
write ('sum=',sum);
readln
end.