Напишите на паскале. Задание: Из круга радиуса R вырезан
прямоугольник, большая сторона которого равна а. Определить
радиус круга, который можно вырезать из этого прямоугольника
(экстремальные тесты: а=2R, a=1,41421 R)

program figuri;

var

R1,R2,a,b: real;

begin

writeln('vvedite radius R1 opisannoi okrujnosti');

readln(R1);

writeln('vvedite storonu a priamougolnika');

readln(a);

b:=sqrt( (4*sqr(R1)) - sqr(a));

R2:=b/2;

writeln('radius R2 vpisannogo kruga =',R2);

end.