НУЖНО ЗАПИСАТЬ ЛОГИЧЕСКОЕ ВЫРАЖЕНИЕ НА ЯЗЫКЕ ПАСКАЛЬ​

Вроде x < -10

Объяснение:

Если не ошибаюсь

Uses crt; var     a,b: integer;     p: real;     c: boolean; begin clrscr; write('введите натуральное число: '); readln(b); write('a = '); readln(a); p: =1; c: =false; b: =abs(b); while b> 0 do     begin     p: =p*(b mod 10);     if b mod 10 = a then c: =true;     b: =b div 10     end; writeln('p = ',p); if c then writeln('не верно') else writeln('верно'); readln end. uses crt; var     a: integer; begin clrscr; for a: = 100 to 999 do       if ((a+1) mod 2 = 0)and((a+2) mod 3 = 0)and((a+3) mod 4 = 0)and((a+4) mod 5 = 0) then write(a,' '); readln; end. uses crt; var     a,b,c: integer; begin clrscr; write('введите натуральное число: '); readln(b); write('a = '); readln(a); c: =0; while b< > 0 do     begin     if b mod 10 < > a then c: =c*10+b mod 10;     b: =b div 10;     end; while c< > 0 do     begin     b: =b*10+c mod 10;     c: =c div 10     end; writeln(b); readln; end.