программка ввода и вывода данных. Возведение в квадрат кождого элемента массива.

Const
   N = 13;
Var
   A:Array[1..N] of integer;
   i:integer;
Begin
Randomize;
Write('Начальный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(19)+1;
    Write(' ',A[i]);
    End;
WriteLn;
Write('Каждый элемент возводится в квадрат:');
For i:= 1 to N do
    Begin
    A[i]:=A[i]*A[i];
    Write(' ',A[i])
    End
End.