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.