РЕБЯТ, ПЛИЗ, КТО ШАРИТ В ИНФОРМАТИКЕ. РЕШИТЕ ПОЖАЛУЙСТА!!! ​

1.

x не кратно 4   x mod 4 <>0

-5<x<-2   (x>-5)and(x<-2)

x принадлежит [-1,5]  (x>=-1)and(x<=5)

2.

uses crt;

var n1,n2,n3:byte;

begin

writeln('Введите 3 разных числа от 1 до 9 по порядку:');

readln(n1,n2,n3);

if(n2-n1=3)and(n3-n2=3)then write('На вертикали!');

readln

end.