Напишите программу на шая.вычеслите объем шара заданного радиусаv=4/3nr^3) n-число пи на паскале

Program gt; var r,v: real; begin readln(r); v: =(4/3)*pi*r*r*r; writeln(v); end.

Не нравится это решение, но работает: const n = 10; var mas: array [1..n] of integer; i,min,k: integer; begin for i: = 1 to n do begin mas[i]: =random(100); end; writeln('полученный массив: '); for i: = 1 to n do   write(mas[i]: 4);   writeln; writeln('результат выполнения : '); min: =mas[1]; for i: =2 to n do   begin         if min> mas[i] then         begin             min: =mas[i];             k: =i;         end;   end;   for i: =1 to k-1 do       mas[i]: =0;   for i: =k+1 to n do       mas[i]: =0; for i: = 1 to n do   write(mas[i]: 4); readln end. полученный массив:   81  89  88  18  26  28  97    3  15  28 результат выполнения :     0    0    0    0    0    0    0    3    0    0

< ! doctype html> < html>       < head>               < meta charset="utf-8">               < title> < /title>       < /head>       < body> < script>           var a = +prompt("введите а",""); var b = +prompt("введите в",""); var h = +prompt("введите h",""); var s = ((a + b) / 2) * h; document.write("< h3> ответ: < /h3> < br /> < p> площадь равна: " +s+"< /p> "); < /script>       < /body> < /html>