Срочно помогите пожалуйста

Question

Срочно помогите пожалуйста

---

Answer 1

Первое задание:
program example3;
var x,y:real;
begin
writeln('x=');
readln(x);
if x >10 then y:= sqr(x) +1
else if x <= 10 then y:= 23 - 2*x;<br>writeln('y= ',y);
end.