[[seoane]]

Por favor usa las etiquetas para publicar tu codigo. Por ejemplo:

[delphi]Tu codigo[/delphi]

Mira que bien queda así :

Código Delphi [-]
function Verif_primo(n:integer):boolean;
var
    c,residuo:integer;
    b:boolean;
begin
  if n>1 then
  begin
    c:=1;
    repeat
    c:=c+1;
    residuo:=n mod c;
    until residuo=0;
    if n=c then
    begin
    b:=true;
  end
    else
    begin
    b:=false;
    end;
  end
  else
  begin
  b:=true;
  end;
  result:=b
end;
function S_primo(n:integer):integer;
var
    c,c1,c2:integer;
begin
  c:=0;
  c1:=0;
  c2:=0;
    repeat
    c:=c+1;
      if verif_primo(c)=true then
      begin
      c1:=c+c1;
      c2:=c2+1;
      end;
    until (c2=n);
    result:=c1;
end;