Программа вычисляющая объём и площадь полной поверхности цилиндра

Var r,h,s,v: real;   begin   write('введите радиус: ');   readln(r);   write('введите высоту: ');   readln(h);   s: =4*pi*r*(h+r);   v: =pi*r*r*h;   writeln('полная площадь цилиндра равна ',s);   writeln('объем цилиндра равен ',v); end.

Const n=20; var x : array[1..n] of integer;     i, max, min : integer; begin randomize;   writeln('исходный массив: '); for i: =1 to n do   begin   x[i]: =random(181)-50;   write(x[i],' '); end; writeln; max: =x[1]; min: =x[1]; for i: =2 to n do   begin   if x[i] > max then max: =x[i];   if x[i] < min then min: =x[i];   end; writeln('max=',max,'   min=',min); end.пример: исходный массив: -34 -23 -38 15 108 21 -25 -29 15 -34 34 8 20 76 -27 -43 -17 89 95 -28  max=108   min=-43

дано:                                 решение

n=256                                  n=2 в степени i

k=30*70*5                        256=2 в степени 8 бит

найти v                            v=i*k

                                                      v=8*30*70*5=84000бит