var a,b,c:integer;
s,k,y:real;
begin
readln(a,b,c);
s:=sqrt(3*c*c*c+b*b*b*b*b)/(b-c);
k:=sqrt(s)+abs(-a*b*c);
y:=s+3*k-((s*s*s*s)/(b+c));
write(y:0:3)
end.
Операционную систему и браузер (Интернет обозреватель).
Var p,i, n:integer;
begin
p:=1;
writeln('Введи n');
readln(n);
if n>=1 then
begin
for i:=1 to n do
p:=p*i;
writeln(p);
end else writeln('n>=1');
<span>end.
</span>