Напишите, , программу на языке pascal ! проверить является ли пара целых положительных чисел дружественными . два различных натуральных числа являются дружественными, если сумма всех делителей первого числа (кроме самого числа) равна второму числу. например, 220 и 284, 1184 и 1210, 2620 и 2924, 5020 и 5564.

var a,b:integer;

function sum(x:integer):integer;

var s,i:integer;

begin

s:=1;

for i:=2 to x div 2 do

if x mod i=0 then s:=s+i;

sum:=s;

end;

begin

readln(a,b);

if (sum(a)=b)and(sum(b)=a)

then writeln('Введенные числа являются дружественными')

else writeln('Введенные числа не являются дружественными');

end.

Пример:

5020 5564

Введенные числа являются дружественными