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.