Составьте пожалуйста программу .

Question

Составьте пожалуйста программу .

---

Answer 1

Var x,y:real;
begin
write('x = ');
readln(x);
if x<=3<br> then y:=x*x-3*x+3 else y:=1/(x*x+6);
writeln('y = ',y);
end.

Пример:
x = 2
y = 1