Помогите пожалуйста, программа Pascal

Question

Помогите пожалуйста, программа Pascal

---

Answer 1

Var
y,x:real;
Begin
write('Введите х: ');
readln(x);
if x>0 then 
y:=-2-3*x
else 
y:=8+sqr(x);
Writeln('y=',y);
readln;
end.

Comments

Мир не без добрых людей!Спасибо огромное!