Cod sursa(job #123450)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 15 ianuarie 2008 22:59:53
Problema Sum Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.09 kb
program sum;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var fin,fout:text;
    i,j,n,m,t,q:longint;
    s:int64;
{*-----------------------------*}
function prim(a,b:longint):boolean;
begin
        prim:=true;
        for q:=2 to b do
        Begin
                if ((a mod q = 0 ) and (b mod q = 0)) then
                Begin
                        prim:=false;
                        Break;
                End;
        End;
end;
{*---------------MAIN----------*}
begin
        assign(fin,'sum.in'); reset(fin);
        assign(fout,'sum.out'); rewrite(fout);
        readln(fin,t);
        for J:=1 to T do
        Begin
                Readln(fin,n);
                s:=0;
                for i:=0 to 2*N-1 do
                Begin
                        If Prim(i,n) then
                        Begin
                                S:=S+i;
                              //  write(fout,i,' ');
                        End;
                End;
                writeln(fout,s);
             //   writeln(fout,' ');
        End;
        close(fin);
        close(fout);
end.