Дано число 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.