EkKyl_1

Var
    N: Integer; I: LongInt;
    A: Array [1..100] Of LongInt;
Begin
    Repeat
        Write('Введите N - размер массива [2..100]: ');
        ReadLn(N);
    Until Not ((N > 100) Or (N < 2));
    WriteLn('Выходной массив:');
    For I:= 1 To N Do Begin
        A[I]:= I * I;
        WriteLn('A[', I, '] = ', A[I]);
    End;
    ReadLn;
End.