Можно ли составить алгоритм так,чтобы можно было решить при любом значении x? : у вити было 7 рублей. он решил купить карандаш за x рублей. сколько денег у него останется или сколько не хватит?

Var x:real;
begin 
readln(x);
if x>7 then writeln(x-7) //выводится сколько не хватило.
else
writeln(7-x); //выводится сколько осталось.
readln;
end.