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

1)

x кратно 5 lt;-gt; x mod 5=0

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

x  [-10;10] lt;-gt; (xgt;=-10) and (xlt;=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.