Постройте отрицания следующих высказываний. 1) сегодня в театре идет опера "евгений онегин" 2) каждый охотник желает знать, где сидит фазан. 3) число 1 есть простое число. 4) натуральные числа, оканчивающиеся чифрой 0, не являются простыми числами. 5) неверно, что число 3 не я вляется делителем числа 198. 6) коля решил все контрольной работы. 7) во всякой школе некоторые ученики интересуются спортом. 8) некоторые млекопитающие не живут на суше

понадобится 24 секунды.

а)

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.