Две программы на for/while - Pascal

Формулировка задачи:

Не могу решить две задачи: 1)В деревне Интернетовка все дома расположены вдоль одной улицы по одну сторону от нее. По другую сторону от этой улицы пока ничего нет, но скоро все будет – школы, магазины, кинотеатры и т.д. Для начала в этой деревне решили построить школу. Место для строительства школы решили выбрать так, чтобы суммарное расстояние, которое проезжают ученики от своих домов до школы, было минимально. План деревни можно представить в виде прямой, в некоторых целочисленных точках которой находятся дома учеников. Школу также разрешается строить только в целочисленной точке этой прямой (в том числе разрешается строить школу в точке, где расположен один из домов – ведь школа будет расположена с другой стороны улицы). Напишите программу, которая по известным координатам домов учеников поможет определить координаты места строительства школы. Формат входных данных Сначала вводится число N — количество учеников (0 < N < 100001). Далее идут в строго возрастающем порядке координаты домов учеников — целые числа, не превосходящие 2∙109 по модулю. Формат выходных данных Выведите одно целое число — координату точки, в которой лучше всего построить школу. Если ответов несколько, выведите любой из них. 2)На клетчатой бумаге Петя нарисовал отрезок из точки с координатами (a,b) в точку с координатами (c,d). Через сколько клеток проходит этот отрезок (считается, что отрезок проходит через клетку, если он проходит через ее внутренность, если же он проходит только через вершину или по границе клетки, считается, что он не проходит через клетку). Входные данные. Вводятся целые числа a, b, c, d. Числа по модулю не превышают 109. Выходные данные. Выведите одно число — количество клеток, через которые проходит отрезок Решение проверяет компилятор, поэтому желательно не слишком долгое.

Решение задачи: «Две программы на for/while»

textual
                            Листинг программы 
                        

                            VAR
   n,a,i,s:integer;
BEGIN
     read (n);
     s:=n div 2+1;
     for i:=1 to n do
         begin
         read(a);
         if i=s then
            write (a);
         end;
END.
                        