Используя цикл while, запишите массив, который находит сумму и произведение нечетных элементов, кратных 3. паскаль

Можно целиком ? как формируется массив - рандомом или с клавиатуры, как завершить цикл (например, цифрой 0). 

***первая *** var a: array [1..100]of integer; n,i,fl,sum,len: integer; s : string; begin  writeln('введите n') ;   readln(n);                   for i: =1 to n do                  readln(a[i]);   sum: =0;   fl: =0;                   for i: =1 to n do                  begin                  str(a[i], s);                   len: =length(s);                     if ((a[i]mod 6=0)and(s[len]='4')) then                        begin                          sum: =sum+a[i];                           fl: =1;                         end;                   end; if (fl=1)then writeln('сумма=',sum); if(fl=0) then writeln('нет'); end. ****тестовый ввод **** 5 24 1 1 24 3 **** вывод сумма = 48 ***** вторая. пометка ! ввод нуля останавливает программу (исходя из условия оканчивающихся на 0)******** var i,max,fl: integer; begin i: =1; max: =0; fl: =0;         while(i< > 0) do         begin           readln(i);           if((i mod 3=0)and(i> max)) then               begin               max: =i;               fl: =1;               end;           end; if (fl=1) then writeln('максимальный =',max); if (fl=0) then writeln('нет'); end. ****тестовый ввод **** 3 4 9 8 6 0 **** вывод максимальный = 9

#include < iostream> using namespace std; int main() { double p1, p2;     cout < < "плотность жидкости = ", cin > > p1, cout < < "\n";     cout < < "плотность тела = ", cin > > p2, cout < < "\n";     if (p1> p2) cout < < "тело будет плавать на поверхности";     else if (p1< p2) cout < < "тело уйдет на дно";     else cout < < "тело будет плавать полностью погрузившись в жидкость"; return 0; } пример: плотность жидкости = 1.3плотность тела = 11.2тело уйдет на дно