1)
x кратно 5 <-> x mod 5=0
2 < x < 5 <-> (x>2) and (x<5)</p>
x ∈ [-10;10] <-> (x>=-10) and (x<=10)</p>
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.