Составьте программу нахождения У

Question

Составьте программу нахождения У

---

Comments

нет

---

что нет?

---

нет

---

ответить нормально не можешь?

---

нет

---

ну понятно

---

нет

Answer 1

Var x, y: real;
begin
write('Введите значение х: ');
readln(x);
if x >= 0 then y := 4 * x + 10
else y := 8 + x;
writeln('y = ', y);
end.

Comments

кросс, а можешь и мне помочь http://znanija.com/task/10607768