вычислить f(x),используя составные условия

f(x)=x, если 01, x<=0

в Паскале

var x,f:real;

begin

writeln('Введите значение x: ');

readln(x);

if (x>=0) and (x<=1) then

begin

f:=x*2-x;

writeln('f = ',f);

end

else

begin

if (x>1) or (x<0) then

f:=x*2;

writeln('f = ',f);

end;

end.