Помогите построить блок схему и текст для нее
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.
