35-6=29
29-20=9 любят только кино
15-9=6 любят и кино, и дискотеки
Незачто надеюсь правильно
Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.