PROGRAM File1(Output);
    VAR
        Numbers: FILE OF Integer;
        I: Integer;
BEGIN
    Rewrite(Numbers);
    FOR I := 1 TO 10 DO BEGIN
        Numbers^ := Sqr(I);
        Put(Numbers)
    END;

    Reset(Numbers);
    WHILE NOT Eof(Numbers) DO BEGIN
        WriteLn(Output, Numbers^);
        Get(Numbers)
    END
END.