B) ввести число. если его модуль больше 7, уменьшить число в 1,5 раза, в противном случае увеличить в 7 раз.

Var n:real;
 begin
 readln(n);
if abs(n)>7 then begin
n:=n/1.5;
end else begin
n:=7*n;
end;
writeln(n);
end.