Решить 1 и сделать блок-схему

Question

Решить 1 и сделать блок-схему

---

Answer 1

Const
  x=0.4;
  y=-7.3;

var
  s:real;
 
begin
  s:=1+3.17*x*x/y+0.009*Sqrt(Exp((x*y+Exp(x))*Ln(x-y)));
  Writeln(s)
end.

Результат
0.932615675312061

Блок-схема (уж не знаю, зачем она нужна) - во вложении.

---