Можно её сохранить на флешку или жёсткий диск.
var d,p,g,h,r,s,m:real;
begin
D:=1200;
g:=9.8;
s:=3.14*r;
Write('vvedite H i R zceres probel:');
readln(h,r);
p:=d*g*h;
m:=d*h*s;
end.
это для а и б,а что касается и то нужно знать сколько всего сосудов.
1)335
2)115,6
3)46
держииииии
Var s:string; c:char; i:integer;
begin
write('s = '); readln(s);
i:=1;
while (i+2<=length(s)) do
if(s[i]=s[i+1])and(s[i+1]=s[i+2])
then begin
c:=s[i];
while (i<=length(s))and(c=s[i]) do delete(s,i,1);
i:=1;
end
else i:=i+1;
writeln(s);
<span>end.</span>