помогите пожалуйста составить программу на паскале и блок схему для функции

var
x:integer;
y:real;
begin
readln(x);
y:=sqrt(x+5)/(x*x-6*x-8);
writeln(y);
end.

Ошибся, не sqrt(s-5), а sqrt(x+5) в схеме