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

1.

x не кратно 4   x mod 4 lt;gt;0

-5lt;xlt;-2   (xgt;-5)and(xlt;-2)

x принадлежит [-1,5]  (xgt;=-1)and(xlt;=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.