Дана площадь грани куба.найдите площадь полной поверхности и объем куба.

Есть тут один код на примете {программа свободные колебания кругового маятника}program math_01; {подключение модулей подпрограмм}uses crt, graph; {описание констант}const phi0=30; // начальный угол наклона маятника w0=0; // начальная угловая скорость маятника l=400; // длина нити r=8; // радиус груза light=2; // радиус блика k=0.02; // коэффициент сопротивления m=1; // масса груза xp=320; // координата x точки подвеса yp=10; // координата y точки подвеса g=9.8; // ускорение свободного падения tau=0.4; // шаг по времени{описание переменных}var x, y, xx, yy, w, eps, phi: real; {процедура инициализации графического режима 640x480}procedure opengraph; var driver, mode, errorcode: integer; begin driver: =detect; initgraph(driver, mode, 'c: \bp\bgi'); errorcode: =graphresult; if errorcode < > grok then halt(1); end; {процедура исключения мерцаний изображений}procedure glimmer; begin repeat until port[$3da] and 8 < > 0; end; {процедура вывода изображения маятника на экран}procedure display; begin glimmer; setcolor(black); setfillstyle(solidfill, black); line(xp, yp, round(xx), round(yy)); fillellipse(round(xx), round(yy), r, r); setlinestyle(solidln, 0, normwidth); setcolor(darkgray); line(xp, yp, round(x), round(y)); setlinestyle(solidln, 0, normwidth); setcolor(darkgray); setfillstyle(solidfill, darkgray); fillellipse(round(x), round(y), r, r); setcolor(lightgray); setfillstyle(solidfill, white); fillellipse(round(x)-3, round(y)-3, light, light); end; {основная часть программы}begin opengraph; setfillstyle(solidfill, darkgray); bar(xp-20, yp-5, xp+20, yp-1); phi: =phi0*pi/180; w: =w0; x: =xp+l*sin(phi); y: =yp+l*cos(phi); repeat begin xx: =x; yy: =y; eps: =-k*w/m-g*sin(phi)/l; w: =w+eps*tau; phi: =phi+w*tau; x: =xp+l*sin(phi); y: =yp+l*cos(phi); display; end; until keypressed; closegraph; end.

Const n=10; var a:   array [1..n] of integer;   - массив чисел var i,j,s: integer; begin   j: =0;   s: =0;     for i: =1 to n do a[i]: =random(100);   for i: = 1 to n do       begin           if ((a[i] mod 5 = 0) or (a[i] mod 10 = 0)) then         begin             s: =s+a[i]; j: =j+1;         end;     end;   writeln('число чисел, кратных 5 и 10   =   ',  j);   writeln('сумма чисел = ',s); end.