program O_O;
var x,y,z,a: real;
begin
writeln ('Запилено Suiseyseki');
writeln ('Введите количество матриархатов: ');
readln (x);
writeln ('Введите диаметр планеты: ');
readln (y);
a:=100*(x*4375800)/(y*y);
writeln ('Шанс уничтожения планеты в % = ',a:3:3);
readln;
end.