срочно помогите составить блок схему и программу

Вводишь А и Х- получаешь Y.vara,x,y:real;beginwriteln('Введите A и X');readln(a,x);y:=(sqr(x)+sqr(a))/(1-sin(ln(sqr(x))));writeln('Y = ',y);end.