Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
Первым выполняется логическое умножение, т.е. B∧C
//PascalABC.Net
//(c) NaaMan
var
a : array of integer;
n, i : integer;
p : real;
begin
n := 5;
a := new integer[n];
a := ArrRandom(n, -10, 10);
p := 1;
for i:= 0 to n-1 do
if a[i] < 0 then p *= a[i];
println(a);
writeln('Произведение всех отрицательных равно ', p)
end.
У меня получился ответ 9!