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.

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.