Question

Напишите это пожалуйста на языке Pascal

Answer 1

Program z1;
Var
x,y:real;
begin
Readln(x);
If (x-4>=0)and(x+8<>0) then begin y:=sqrt(x-4)/(x+8);
Writeln(y);
end;
else writeln('не решается');
end.

Должно работать)