Hãy lập trình:
- Đọc dữ liệu từ tệp TILE.TXT mỗi lần ra một số nguyên, tệp có một dòng chứa số nguyên, mỗi số cách nhau một dấu cách.
- Hiện ra màn hình lập phương của số nguyên đó.
Const Fi='TILE.TXT'; Var f: text; A: array[1..1000] of longint; n,i: longint; Begin Assign(f,Fi); Reset(f); Readln(f,n); For i:=1 to n do Read(f,A[i]); For i:=1 to n do Write(sqr(A[i]),' '); Close(f); Readln End.