Вычислить минимальную площадь круга, содержащего заданные точки - Pascal ABC

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

Вовочка придумал новое развлечение. Он выбирает N (1<=N<=100) точек с координатами x[i], y[i] (-1000<=x[i]<=1000,-1000<=y[i]<=1000), описывает вокруг первой окружность так, чтобы все точки лежали в полученном круге. При этом площадь круга должна быть минимальной. Найдите эту площадь. Формат ввода: N - количество точек. x[1] y[1] x[2] y[2] ... x[n] y[n] - координаты каждой точки. Формат вывода: s - площадь с точностью до сотых. Нужно сделать задачу с файлами input.txt и output.txt для проверки: Пример ввода(input.txt): 2 0 0 1 1 Пример вывода(output.txt): 6.28

Решение задачи: «Вычислить минимальную площадь круга, содержащего заданные точки»

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

var x1,y1,x,y:integer;
    n,i:integer;
    r,r1,s:real;
begin
    assign(input,'input.txt');reset(input);
    assign(output,'output.txt');rewrite(output);
    readln(n);
    readln(x1,y1);
    r:=0;
    i:=2;
    while i<=n do
     begin
      readln(x,y);
      r1:=sqrt(sqr(x1-x)+sqr(y1-y));
      if r1>r then r:=r1;
      inc(i)
     end;
    s:=pi*sqr(r);
    writeln(s:0:2)
end.

Объяснение кода листинга программы

В начале кода объявляются переменные для координат точек и номера точек, а также переменная для хранения результата.
Затем происходит чтение файла input.txt с помощью функции assign и считывание первой строки с помощью функции readln.
Значения x1, y1 присваиваются значениям координат первой точки.
Переменная r инициализируется нулем, а переменная i устанавливается равной двум.
Запускается цикл while, который будет выполняться до тех пор, пока i меньше или равно n (количество точек).
Внутри цикла происходит чтение координат следующей точки с помощью функции readln и вычисление расстояния между этой точкой и первой точкой с помощью формулы sqr(x1-x) + sqr(y1-y). Это расстояние сохраняется в переменной r1.
Если r1 больше текущего значения r, то значение r обновляется до r1.
После завершения внутреннего цикла значение i увеличивается на единицу.
Переменная s инициализируется произведением числа пи и квадрата радиуса круга с помощью формулы pi*sqr(r).
Наконец, результат выводится на экран с помощью функции writeln.
Конец программы.