Cod sursa(job #123420)

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

var fin,fout:text;
 k,  x, i,j,n,m,t,q,s:longint; ok:boolean;
{*-----------------------------*}
function prim(i,x:longint):boolean;
begin
        prim:=true;


                if (x mod i = 0 )  then
                Begin
                        prim:=false;
                        write(fout,q,' ');

                End; 

end;
{*---------------MAIN----------*}
begin
        assign(fin,'sum.in'); reset(fin);
        assign(fout,'sum.out'); rewrite(fout);
        readln(fin,n);
        for k:=1 to n do
        Begin
                Readln(fin,x);
                s:=0;
                for i:=0 to 2*x-1 do
                Begin
                 ok :=true ;
                        for j:=2 to i do begin
                                       if ((x mod j=0) and (i mod j=0) )then
                                        ok:=false;
                                        end;
                        If ok then
                        Begin
                                S:=S+i;
                               // write(fout,i,' ');
                        End ;
                End;
                  writeln(fout,s);
                //writeln(fout,' ');
        End;
       
        close(fin);
        close(fout);
end.