var x,y:real;
begin
write('Введите x: '); readln(x);
if x<0 then y:=abs(x)
else if (x>0) and (x<1) then y:=x
else y:=10*x;
write('y = ',y:0:2);
end.
Странно, что в задании везде стоят строгие неравенства... То есть при x=0 и при x=1 значение y никак не вычисляется...ну ладно...сделал как в задании
