Question

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

Answer 1

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