Напишите пж программу по информатике в pascal

Question

Напишите пж программу по информатике в pascal

---

Answer 1

Var a,b,c,s,k,y:real;beginreadln(a,b,c);s:=(sqrt(3*power(a,4)))/(3*c)+ 3*b;k:=s+(sqrt(abs(power(a,3)-b-c*2)));y:=k-(s/(b*c))+sqrt(s);write (y:4:4);end.

Comments

var a,b,c,s,k,y:real;
begin
readln(a,b,c);
s:=(sqrt(3*power(a,4)))/(3*c)+ 3*b;
k:=s+(sqrt(abs(power(a,3)-b-c*2)));
y:=k-(s/(b*c))+sqrt(s);
write (y:4:4);
end.