Паскаль, зачачи

[Hitchi]

Найти натуральное число из интервала А до Б с максимальной суммой делителей.
И задание, определить функцию, позволяющую распознавать наличие вещественных корней в квадратных уравнениях.

[Vanta11a]

Исходники?

[Hitchi]

Program primer;
var a, b, c, d, i: integer;
Begin
   write('Введите первое число');
   readln(a);
   write('Введите второе число');
   readln(b);
   c:=0;
   for i:= a to b do
    Begin
       for d:= 1 to i do
        Begin
           if (i mod d = 0) then
           c:=c+d
        end;
        writeln('Сумма делителей числа ',i,'=',c);
        c:=0
    end;
end.

До этого сделал такую программу, она ищет сумму делителей чисел в интервале от А до Б. А мне нужно теперь, найти число из интервала А до Б с максимальной суммой делителей.

[Mad_Cat]

распознавать наличие вещественных корней в квадратных уравнениях.

Function Yes(a,b,c:real):boolean;
begin
Yes:=(b*b-4*a*c>=0);
end;

[Hitchi]

Сообщение от Mad_Cat

Function Yes(a,b,c:real):boolean;
begin
Yes:=(b*b-4*a*c>=0);
end;

За функцию спасибо, теперь вторую решить бы

[Hitchi]

Сообщение от Hitchi

За функцию спасибо, теперь вторую решить бы

Точнее первую)