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

Конечно, может и не заработать, но вроде всё в порядке

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.

Блок схемы нарисовал бы, но не с компа сижу