Подготовь проект по сюжету сказки хочу узнать напиши основной вопрос темы на которых хотелось бы узнать ответ Мой проект Выбери название проекта с кем вот хотел вместе выполнить проект напиши партнёра по проекту ещё напиши вопросы которые выполнить проект мои предложения напиши своё мнение предложение по проекту моя цель каким хотелось бы увидеть свой проект чего не смог сделать​

Var     arr: array[1..100] of real;     n: integer;     sum, op: real;     i: integer;   begin     write('vvedite n ');     readln(n);           for i : = 1 to n do           begin                   write('vvtdite ',i,'-oe chislo ');                     readln(arr[i]);         end;         sum : = 0;         for i : = 1 to n do             sum : = sum + arr[i];     writeln('summa= ', sum); end.