Напишите пожалуйста программу для Паскаля: дано два натуральных числа. В каком числе больше сумма делителей?

Напишите пожалуйста программу для Паскаля: дано два натуральных числа. В каком числе больше сумма делителей?

  • var x,y, s1, s2, a:integer;
    begin
    writeln('Введите два числа');
    readln(x,y);
    s1:=0; s2:=0;
    for a:=1 to x do
    if x mod a = 0 then s1:=s1 + a;
    for a:=1 to y do
    if y mod a = 0 then s2:=s2 + a;
    writeln('Сумма делителей числа ', x, ' равна ', s1 );
    writeln('Сумма делителей числа ', y, ' равна ', s2 );
    if s1 > s2
    then writeln('Сумма делителей числа ', x, ' больше, чем сумма делителей числа', y )
    else if s1 < s2 then writeln('Сумма делителей числа ', x, ' меньше, чем сумма делителей числа ', y ) else writeln('Суммы делителей чисел ', x, ' и ', y , ' равны'); end.