Помогите построить блок схему и текст для нее

Question

Помогите построить блок схему и текст для нее

---

Answer 1

program zadacha;

var

s,y:real;

begin

writeln('vvedite y');

readln(y);

s:=sqrt( cos(4*sqr(y)) + 7.151);

writeln('s =',s:6:2);

end.

---

---