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 đó.

program bai_giai;
uses crt;
var f:text;
    A:array[1..10000] of longint;
    n,i:longint;
begin
    clrscr;
    Assign(f,'TILE.TXT');  reset(F);
    readln(f,n);
    for i:=1 to n do
        begin
            read(f,A[i]);
            write(A[i]*A[i]*A[i],' ');
        end;
    close(f); readln;
end.

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.