Определить принадлежит ли точка x отрезку от 1 до 10 в pascal program

а можно написать в таком виде: Program If_16;var a,b,c: integer;begin write('Введите A, B и C: '); readln(a,b,c); if (b<c) and (a<b) then begin a := 2 * a; b := 2 * b; c := 2 * c; end else begin a := -a; b := -b; c := -c; end; writeln (a,' ',b,' ',c);end.