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.