Дано число n. найти сумму простых делителей числа n.

Var N,i,summa:integer;
begin
 Write('Введите число='); Readln(N);
 for i:=1 to N do begin 
 if N mod i = 0 then Summa:=summa+i;
end;
Writeln('Сумма=',Summa);
end.