Программа выполнена в 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.