((x>3)V(x<3))=>(x<1) = !((x>3)V(x<3)) V (x<1) = (x<=3)^(x>=3) V (x<1) = (x=3) V (x<1).
Выражение истинно для х принадлежит (-беск;1)<span>∪{3}</span>
var
i, j: integer;
begin
for i:= 1 to 99 do
for j:= i +1 to 100 do
if i*i*i = j*j then writeln(i,' ',j);
end.
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('a,b->');
if a.IsEven then Writeln('a+b=',a+b) else
Writeln('a*b=',a*b);
end.