Cоставить алгоритм вычисления выражения z=x/корень из y+3

Программа выполнена в pascalabc.net program aik; var x,y: integer; z: real; begin writeln('введите значение х: '); read(x); writeln('введите значение у: '); read(y); if (y+3)> 0 then begin z: =x/sqrt(y+3); writeln('ответ: ', z); end else begin writeln('ошибка'); end;   end.

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.