Допишите какого оператора не хватает, ниже какой строчки

Хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате???
исходник от java прикрепил,
вот паскаль
var a,b,c,d,x1,x2 :extended;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then begin write('Korney net!'); end;
if d=0 then begin
if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end;
if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end;
if d>0 then begin
if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
end; end.

1) 56(10) ⇒ х(2)
Для перевода целого числа из десятичной системы в двоичную выполняем его целочисленное деление на два с сохранением остатка. Если частное больше единицы, делим его на два, снова сохраняем остаток и т.д. Как только частное станет равным 1 или 0, записываем его, а затем приписываем к нему слева остатки в порядке, обратном их получению.
56 / 2 = 28 (остаток 0)
28 / 2 - 14 (остаток 0)
14 / 2 = 7 (остаток 0)
7 / 2 = 3 (остаток 1)
3 / 2 = 1 (остаток 1)
Записываем результат. 56(10) = 111000(2)

Переводы в десятичную систему счисления выполняются путем записи числа в расширенном виде по основанию системы счисления, в которой представлено число. А далее операции выполняются в десятичной системе.


Переводы чисел между системами счисления по основаниям, кратным степеням двойки (2,4,8,16) выполняется через двоичную систему счисления, как через промежуточную. Например, при переходе от восьмеричной системы к шестнадцатиричной, мы учитываем, что , каждую восьмеричную цифру заменяем тремя двоичными (триадой) и получаем двоичное число. А затем, зная что , мы группируем двоичные разряды справа налево по четыре, получая тетрады. И, наконец, каждую тетраду мы заменяем соответствующей шестнадцатиричной цифрой. Описывать этот процесс долго, а перевод делается быстро.
3) 77(8) = 111 111(2) = 11 1111(2) = 3F(16)
4) 57(8) = 101 111(2) = 101111(2)
5) 9A(16) = 1001 1010(2) = 10011010(2)
7) 10011(2) = 010 011(2) = 23(8)
8) 101011(2) = 0010 1011(2) = 2B(16)