Найти максимальный радиус круга при ограниченном пространстве, используя паскаль

Да кто же оспаривает?

//PascalABC.NET 3.2 сборка 1318Var  x1,y1,x2,y2,ya,xa:integer;beginwriteln('Введите координаты верхнего левого угла пространства');read(x1,y1);writeln('Введите координаты нижнего правого угла пространства');read(x2,y2);ya:=abs(y1-y2);xa:=abs(x1-x2);if ya<xa then writeln(ya/2) else writeln(xa/2);end.Пример работы программы:Введите координаты верхнего левого угла пространства1 0Введите координаты нижнего правого угла пространства4 21