Понимаю глупый вопрос. Как вот это вычислять устно succ(round(9/2)-pred(4)).
Добавлено через 3 мин.
и еще это Вычислить значение выражения [6..12]-[7..16]*[8]+[5,15..50]*[4..15]
type T = (_A, _B, _C);
// ...
WriteLn(Ord(_A)); // Напечатает 0
WriteLn(Ord(_C)); // Напечатает 2
n:=0;
FOR I:=1 TO 3*n+4 DO
n:=n+2;
p:=1;
for i:=1 to n do
if A[i,n+1-i] < 0 then //Это непонятно
p:=p*A[i,n+1-i];