Cod sursa(job #117170)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 20 decembrie 2007 21:01:08
Problema Sum Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.12 kb
program sum;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var fin,fout:text;
    i,j,n,m,t,q,s:longint;
{*-----------------------------*}
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;
                        write(fout,q,' ');
                        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.