Семейнее задание.1. Ввести с клавиатуры ряд чисел, признак окончания ввода

var

 A: array of Integer;   // объявление динамического массива

 i: Integer;

begin

   i := 0;

   while True do begin

     SetLength (A, i + 1);   // установить новый размер массива

     Write ('Введите новое значение массива: ');

     ReadLn (A [i]);

     if A [i] = 2 then

       Break;

     Inc (i);

   end;

   Write ('Элементы массива, возведенные в квадрат: ');

   for i := 0 to High (A) do

     Write (IntToStr (A [i] * A [i]) + ' ');

   WriteLn;

   WriteLn ('Количество частей: ' + IntToStr (i));

end;