Сделать программу pascal. в одномерном массиве с четным количеством элементов (2n) находятся координаты n точек плоскости. они располагаются в сле дующем порядке: x1y1х2, у2, х3, у3, и т. д. определить минимальный радиус круга с центром в начале координат, который содержит все точки"

Const   n = 5; var   arr: array [1..2*n] of integer : = (0,1, -2,1, -1,-1, 1,2, -3,0);   i: byte : = 1;   maxr: real; begin   repeat     maxr : = max(sqrt(sqr(arr[i]) + sqr(arr[i + maxr);     i += 2;   until (i > 2 * n - 1);   writeln(maxr); end.

// pascalabc.net 3.0, сборка 1088 begin   var n: =readlnstring('введите число: ');   n: =n.where(x-> x in ['0'..'9']).joinintostring('');   writeln('принятое число: ',n);   var a: =readlnchar('введите искомую цифру: ');   writeln('количество цифр в числе равно ',n.length);   if n[1]=n[n.length] then writeln('первая цифра равна последней')   else writeln('первая цифра не равна последней');   if pos(a,n)> 0 then writeln('цифра ',a,' входит в число')   else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: тут спрятано 456. по частям 764 наше 03число принятое число: 45676403 введите искомую цифру: 0 количество цифр в числе равно 8 первая цифра не равна последней цифра 0 входит в число "школьный вариант" // pascalabc.net 3.0, сборка 1088 var   n: longint;   i,k: integer;   sn: string;   a: char; begin   write('введите число: '); readln(n);   str(n,sn);   write('введите искомую цифру: '); readln(a);   k: =length(sn);   writeln('количество цифр в числе равно ',k);   if sn[1]=sn[k] then writeln('первая цифра равна последней')   else writeln('первая цифра не равна последней');   if pos(a,sn)> 0 then writeln('цифра ',a,' входит в число')   else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: 3476573 введите искомую цифру: 7 количество цифр в числе равно 7 первая цифра равна последней цифра 7 входит в число