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

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.