Решите пожалуйста по информатике

Конечно, может и не заработать, но вроде всё в порядке var a,b,c,d,e,f,g:real; begin readln(a,b); c:=a+b; d:=c*c; e:=b*b*b; f:=a-d-e; g:=sin(a); writeln(f/g); readln; end. Блок схемы нарисовал бы, но не с компа сижу