program testdomande; {programma che prova la unit domande} uses domande; var infile,outfile:text; n:integer; begin assign(infile,'num_dom.pas'); reset(infile); assign(outfile,'risp.pas'); rewrite(outfile); while not EOF(infile) do begin readln(infile,n); write(outfile,n); if multiplo(n) then writeln(outfile,' e'' multiplo di 7, 11 o 13.') else writeln(outfile,' non e'' multiplo di 7, ne'' di 11, ne'' di 13.'); write(outfile,'La somma delle sue cifre e'' '); if even(sum(n)) then writeln(outfile,'pari.') else writeln(outfile,'dispari.'); write(outfile,'La sua radice quadrata e'' '); writeln(outfile,sqrt(n):4:2); If primo(n) then write(outfile, 'E'' ') else write(outfile,'Non e'' '); writeln(outfile,' un numero primo.'); writeln(outfile); writeln(outfile) end; close(infile); close(outfile); writeln('Le risposte alle domande si trovano nel file risp.pas.') end.