Помогите по информатике, фото выложила ))

Question

Помогите по информатике, фото выложила ))

---

Answer 1

Var
X:real;
Begin
Write('X = ');ReadLn(X);
if X<= 10 then Write('N(',X,') = ',X*X*X+9)<br>else Write('N(',X,') = ',X-5);
End.

Answer 2

Program n1;
var n,x: real;
begin
readln(x);
if x>10 then n:=x-5
else n:=x*x*x+3*3;
writeln(n);
end.

Comments

спасибо огромное ))