Информатика 9 класс, помогите

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.