Var a,b,c:real; begin a := 30; b := 6; a := a / 2 * b; if a>b then c:= a - 3 * b else c:= a + 3 * b; writeln(c); end.
72 короче
почему 72?можешь расписать