Var a,b:real;
begin
readln(a,b);
if(sqrt(b)<a) then b:=b*5
else b:=0;
writeln(b, ' - второе число');
end.
<span>100011011101 = 2269. Изначально число уже в двоичной системе</span>
===== PascalABC.NET =====
begin
var F: real-> real := n -> Sqrt(n) + n;
F(ReadReal('n =')).Println
end.
Да может) .................
100101101 вот это ответ на 301