Информатика 8 класс! Паскаль. Помогите пожалуйста 2 задания!​

1)

x кратно 5 <-> x mod 5=0

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

x ∈ [-10;10] <-> (x>=-10) and (x<=10)

2)

var

 N1, N2, N3: integer;

begin

 read(N1, N2, N3);

 if ((N1 = 1) or (N1 = 4) or (N1 = 7)) and  

    (N1 = N2 - 1) and (N2 = N3 - 1) then

   write('Квадраты лежат на одной горизонтали')

 else  

   write('Квадраты не лежат на одной горизонтали');

end.