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

Question

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

---

Answer 1

Program lol_kek_4ebyrek;

var x:integer;

    y:real;

begin

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

readln(x);

if x <= 3 then<br>
begin

y:= x*x - 3*x + 3;

end;

if x > 3 then

begin

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

end;

writeln('При x=',x,' y=',y);

end.