Помогите написать программу напаскале абс

Question

Помогите написать программу напаскале абс

---

Answer 1

Var x,f:real; 
begin 
writeln('Введите значение x –'); 
read(x); 
if x<=0 then f:=-x else </span>
if (x>0) and (x<2) then f:=sqr(x) else f:=4; </span>
writeln('Значение функции f(x) = ',f); 
end.

Comments

спасибо большое