скажите как прописать алгоритм, чтобы он через цикл написал мне эту программу

а)

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.

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.

мир информатики  это только один и ноль, только черное и белое, только да и нет. нет третего варианта, нет всем родного и дорогого нам "не знаю", "возможно", "не то не се" - середины. нет сердца

вы скажите что все не так, что есть оттенки серого. да их обычно 256 и нельзя взять семнадцатый с половиной оттенок, где-то между этим и этим.  все равно информатика вся напрочь дискретна. это набор точек, не способный заполнить собою полностью никакой обьем

мир информатики - это удобный мир логики и скоростных рассчетов, но не более того. вот потому искуственный интелект пока невозможен

как я понял надо составить блок-схему

задаете числа, и задаете периметр и площадь равный 0

условие что все больше 0

если да то дальше если нет то конец

после этого сразу проверка на ваши больше и меньше 0 и тому прочее

если не выполняется какое-то условие то конец,если все вып. то опять условие 

с^2=a^2+b^2

если да то выполнить действие s=a*b   вывод s   end

если нет то p=a+b+c   вывод p   end