Question

Помогите по информатике пожалуйста, я выложила фото

Answer 1

Var
  x,y:real;
begin
  Write('x='); Read(x);
  if x<=10 then y:=-5
  else y:=x*x*x+3;
  Writeln('y=',y)
end.

Answer 2

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