Решение задачи Boolean 22

#include <stdio.h>

int main(void)
{
   int A;
   printf("A:");
   scanf ("%i", &A);

   A=abs (A);
   printf("%d\n",(((A/100)>(A%100/10)) & ((A%100/10)>(A%10)))|(((A/100)<(A%100/10)) & ((A%100/10)<(A%10)))); 
   return 0;
}

import random

N = random.randrange(100,1000)
N = 379
print("Число: ", N)
d2 = int(N/100)
d1 = int((N-d2*100)/10)
d0 = N%10
print("Сотни: ", d2)
print("Десятки: ", d1)
print("Единицы: ", d0)
x = ((d2 < d1) and (d1 < d0)) or ((d2 > d1) and (d1 > d0))
print("Цифры образуют возрастающую или \nубывающую последовательность: ", x)
									

program Boolean 22;
var
 A: Integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Writeln((((A mod 10)> ((A mod 100) div 10 )) and ((A mod 100) div 10 >(A div 100))) or (((A mod 10)< ((A mod 100) div 10 )) and ((A mod 100) div 10 <(A div 100))));
end.