Вы хоть пишите, как нужно это проверить....то ли это алгоритм проверки на каком либо языке, то ли еще что-то. Чем точнее вы задаете ответы, тем быстрее на них отвечают.
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;
1.1000
2.12.8
3.150
4.2.48
5.20000
6.819
7.15
3.128бит
4.1000 mb