Составьте программу ** Паскале для примера 7. Дам 100 баллов!

Question

Составьте программу на Паскале для примера 7. Дам 100 баллов!

---

Answer 1

var x,f:real;

begin

readln(x);

if x>0 then f:=x else f:=x*1;

writeln(f)

end.

Comments

Если можешь оценить ответ

---

То оцените приз

---

спасибо