use(io). inp:var(tfile). outp:var(tfile). n:var(int). inp:=topenin("nums.dat"); outp:=topenout("new_nums.dat"); while (!eof(inp)) do ( n:=freadint(inp); fprintint(outp,n*n); fprintstr(outp,"\n") )