1.
x не кратно 4 x mod 4 <>0
-5-5)and(x<-2)</p>
x принадлежит [-1,5] (x>=-1)and(x<=5)</p>
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.