Задано натуральное n и координаты n точек на плоскости. составить алгоритм и программу на delphi для определения координаты точки, наименее удаленной от точки с координатами (10; -2)

Program mindist; {$apptype console} uses sysutils; const   k = 100;   ax = 10;   ay = -2; var   t: array[1..k, 1..2] of integer;   r, rmin, i, n: integer; begin   write('введите число точек на плоскости: ');   readln(n);   rmin : = 32767;   randomize;   writeln('исходные данные: ');   for i : = 1 to n do   begin       t[i, 1] : = random(51) - 25;       t[i, 2] : = random(51) - 25;       r : = sqr(t[i, 1] - ax) + sqr(t[i, 2] - ay);       if rmin > r then rmin : = r;       writeln('(', t[i, 1], ',', t[i, 2], ')')   end;   writeln(#13#10, 'минимальное расстояние от а(', ax, ',', ay, ') равно: ', sqrt(rmin)) end.

Program q1; uses crt; const n=10; var i,j: integer; mass: array [1..n] of integer; countnum: integer; // переменная для хранения количества нечетных чисел proizv: integer; // переменная для хранения произведения нечетных чисел begin proizv: =1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} writeln('случайные целые числа: '); for i: =1 to n do begin mass[ i ]: =random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ])+', '); end; {вычисление произведения и количества нечетных чисел} for i: =1 to n do if mass[ i ] mod 2 < > 0 then //проверяем не четное-ли число, если да, то.. begin inc(countnum); //увеличиваем на один кол-во нечетных чисел proizv: =proizv*mass[ i ]; // высчитываем произведение end; {вывод результатов} writeln; writeln('всего нечетных чисел: '+inttostr(countnum)); writeln('их произведение: '+inttostr(proizv)); end. program q2; uses crt; const n=10; var i,j: integer; mass: array [1..n] of real; summ: real; // переменная для хранения суммы чисел mnum: real; // переменная для хранения среднего арифметического begin {создание последовательности n отрицательных вещественных чисел} writeln('случайные отрицательные вещественные числа: '); for i: =1 to n do begin mass[ i ]: =((random(9)+1)+(random(9)+1)/10)*(-1); //присваеваем переменной случайное вещественное от 1 до 10 write(mass[ i ],'; '); //выводим end; {вычисление среднего арифметического} for i: =1 to n do summ: =summ+mass[ i ]; // высчитываем произведение mnum: =summ/n; {вывод результатов} writeln; writeln('среднее арифметическое: ',mnum); end.

//pascalabc.net 3.1 сборка 1239 function bintodec(bin: string): integer; begin       var n : = 0;       var p : = 1;       for var i : = length(bin) downto 1 do       begin               n += p * strtoint(bin[i]);               p *= 2;       end;       result : = n; end; begin       var s : = readlnstring('s =');       writeln(bintodec(s)); end.