Объяснение:
Насегодняшний день существует много разных технологий, приютов, клиник для наших братьев младших - животных. Любой человек может животным которые нуждаются в этом. Есть люди которые борятся за жизнь каждого животного на этой планете, а есть люди которые не соблюдают элементарных правил и сжигают сами того не хотя целые гектары лесов и множество животных умирают из-за человека. Много людей выбрасывают мусор в водоёмы, в леса и из-за этого погибает значительная часть животных на планете. Сейчас, 21 век, новые технологии и человечество придумал методы как избавится от мусора. Специальные машины которые уберают и чустят водоёмы, мусороперерабатывающие заводы. Простая задача человека - выбрасывать мусор в урну и фасовать : стекло к стеклу, бумага к бумаге, резина к резине и так далее. Это не тяжело, а очень в первую очередь животным. Они как никак тоже ходят, тоже чувствуют, тоже умеют радоваться и играть, так же, просто мы привыкли к ним обращаться как к игрушкам ненужным. А, может, начав сегодня, именно ты миллионы душ нивинных животных просто напросто выбрасывая мусор в урну.
i ,j, k ,n ,m, max, t, t1 : integer;
x, y : array[1..10] of integer;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
readln(n);
readln(m);
for i:=1 to m do
readln(x[i],y[i]);
max:=0;
for i:=1 to n do
for j:=1 to n do
begin
t:=2*n;
for k:=1 to m do
begin
t1:=abs(x[k]-i)+abs(y[k]-j);
if t1<t then t:=t1
end;
if t>max then max:=t
end;
write(max)
end.