Напишите программу, которая заполняет массив случайными числами на отрезке [2; 10] и считает отдельно количество четных и нечетных элементов. pascal abc прошу

Const n=10; var a: array[1..n] of integer; k,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(9)+2;   write(a[i],' ');   end; writeln; k: =0; for i: =1 to n do   if a[i] mod 2 = 0 then k: =k+1; writeln('четных: ',k,'  нечётных: ',n-k); end. пример: 2 2 4 7 9 10 9 4 5 4четных: 6 нечётных: 4

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

24576/8=3072 символа

ответ: 3072 символа