Question

30 баллов
Решите задание 3 на языке паскаль пожалуйста)

Answer 1

program pf;

var x, y: real;

begin

 write('Введите x = '); readln(x);

 if x <= 3 then

   y := sqr(x) - 3 * x + 9

 else

   y := 1 / (sqr(x) + 6);

 write(y)

end.