Найти сумму делителей каждого из целых чисел от 50 до 70 (программа Паскаль)

Question

Найти сумму делителей каждого из целых чисел от 50 до 70

Answer 1

program z1;
uses crt;
var a,b,c,i: integer;
begin
for a:=50 to 70   do  begin i:=0;
  for b:=1 to a do
if a mod b = 0 then
     i:=i+b; writeln(a:4,i:5);
 end;
end.