Algoritmo ABS ,POT, INT

[Nautilus 1]

O que está dando errado no seguinte algoritmo???

 

 

 
program NOT1;
   //abs = retorna o valor absoluto do número
   //int = retorna o valor positivo do número

var C:INTEGER;

begin
   writeln(not((2 * 2 * 2)<(4 * 4))or(abs(int( -15 / 2 ))< 10));

   C := 20;
   writeln(3*(C / 4 + 5)< (-8 * 3 +(15 mod 8-3)))
   or ((5 * 5) > int(C * 0.7));

   READLN;
end.
 
 
 

[mauroalba 0]

Acho que o problema está aqui:

writeln(3*(C / 4 + 5)< (-8 * 3 +(15 mod 8-3)))
or ((5 * 5) > int(C * 0.7));

e o correto seria assim:

writeln(3*(C / 4 + 5)< (-8 * 3 +(15 mod 8-3))
or ((5 * 5) > int(C * 0.7)));

Observe que tirei o parentese do final da primeira linha e passei para o final da segunda, pois o "or" estava fora do "writeln".