Напишите на паскале. Задание: Из круга радиуса 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.