Составить блок-схему и программу на языке паскаль для вычисления объема конуса с радиусом основания r=5 см и высотой h=10 см. v=(1/3)sосн*h

1) program ez_1; var  a, b, c, i, x, g: integer; begin  readln(a, b, c);   if a > 0 then    a : = a * a  else    a : = a * a * a;   if b > 0 then    b : = b * b  else    b : = b * b * b;   if c > 0 then    c : = c * c  else    c : = c * c * c;   writeln(a);   writeln(b);   writeln(c); end. 2) program ez_2; var  a, b, c, i, x, g: integer; begin  readln(a, b, c, g);   if a < 0 then    x : = x + 1;   if b < 0 then    x : = x + 1;   if c < 0 then    x : = x + 1;   if g < 0 then    x : = x + 1;   writeln(x); end. 3) как я понял    "двухдверное число" это число из 2 знаков(двухзначное).program ez_3; var  a, b, c: integer; begin  readln(a);   c : = a mod 10;   b : = a div 10;   if c = b then      writeln('числа равны')  else    writeln('числа не равны'); end.

Var a,i,s,max,amax: integer; function sum(n: integer): integer; var s: integer; begin s: =0; while n< > 0 do   begin   s: =s+n mod 10;   n: =n div 10;   end; sum: =s; end; begin max: =0; for i: =1 to 8 do   begin   write('a = ');   readln(a);   s: =sum(a);   if s> max then begin max: =s; amax: =a; end;   end; writeln('в числе ',amax,'  максимальная сумма цифр = ',max); end. пример: a =  405a =  120 a = 309 a = 671 a = 456 a = 215 a = 751 a =321 в числе 456 максимальная сумма цифр = 15