Question

напишите программу в паскале

Answer 1

var y,x : real;
begin
read(x);
if y<=3 then
y:=sqrt(x+2);
if x>-3 then
y:=abs(x);
end.