program radquad;
{dato un file di input (numeri.pas) contenente dei numeri,
scrive una tavola di quadrati e radici quadrate in un file}
var infile,outfile:text;
    infilename:string;
    nextnum:real;

begin
  write('Nome del file di input:');
  readln(infilename);
  assign(infile, infilename);
  reset(infile);

  assign(outfile,'radici.txt');
  rewrite(outfile);

  writeln(outfile,'n':9,'radice quadrata':20,'quadrato':10);

  while not EOF(infile) do
    begin
    readln(infile,nextnum);
    writeln(outfile,nextnum:10:2,sqrt(nextnum):15:2,sqr(nextnum):12:2)
    end;

  close(infile);
  close(outfile);
  write('La tavola delle radici quadrate');
  writeln(' e dei quadrati e'' nel file radici.txt');
end.