Найти алгоритм нахождения перемитра круга

const pi=3.14;

var

r,l: real;

begin

write('введите радиус = ');

readln(r);

l: =2*pi*r;

writeln('длина окружности = ',l);

readln;

end.

Var x1,y1,x2,y2,x,y: real; begin writeln('введите координаты левой верхней вершины квадрата'); readln(x1,y1); writeln('введите координаты правой нижней вершины квадрата'); readln(x2,y2); x: =x1+(x2-x1)/2; y: =y2+(y1-y2)/2; writeln('координаты точки пересечения диагоналей квадрата: '); writeln('x = ',x,' y = ',y); end. пример: введите координаты левой верхней вершины квадрата 4 3 введите координаты правой нижней вершины квадрата 6 1 координаты точки пересечения диагоналей квадрата: x = 5 y = 2

// pascalabc.net 3.2, сборка 1401 от 14.03.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('n=');   if s.tochararray.any(c-> not c.isdigit) then begin       writeln('это недопустимая запись числа');       exit       end;   // 1   writeln('наименьшая цифра ',s.tochararray.min);   // 2   var n: =s.length;   var k1: =s.where(c-> c.todigit.isodd).count;   var k2: =n-k1;   if k1> k2 then writeln('количество нечетных цифр больше, чем четных')   else       if k1< k2 then writeln('количество четных цифр больше, чем нечетных')       else writeln('количество четных цифр равно количеству нечетных') end. пример n= 121245403457869237484742433 наименьшая цифра 0 количество четных цифр больше, чем нечетных