В качестве подарка, и разминки сделал задание.
Надеюсь, что хотя бы "лучший ответ" не забудете поставить, за старания.
Var
a,b,x1,x2:real;
begin
Read(a);readln(b);
if (a*b>0) and( b<>0) then writeln(-2*sqrt(b),' ',2*sqrt(b),' ','0'); else writeln('0');
end.
<span><em /><em /><em /><em>Я, конечно, не понял, что такое "точнее нужна нач программа для того что бы он вышел", но вот прототип игры из примеров паскаля, в которой невозможно победить (запускать через Pascal.ABC, в остальных версиях могут не работать лэйблы).</em></span>
Число дано в миллиардных, а не миллионных. А перевести можно через клик прав. клав. мыши на ячейку с этим числом , формат ячеек, числовой, число десятичных знаков, если я конечно правильно понял т.к вынос мозга из-за некорректной формулировки задачи.