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;