Определите время: образования Средиземного моря;

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