Помогите сделать пожалуйста блок схемы алгоритма.
Программа сделана, если нужно:

var y,s:real;*
begin*
write('Введите значение y: ');*
readln(y);*
s:=sqrt(cos(4*sqr(y))+7.151);*
writeln('S = ',s);*
end.*