Добавить поле для ввода чтоб пользователь мог сам ввести цвет java script

Program kvur;
var
x1,x2,d,e,f, a, b, c: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a:6:2);
writeln('b= ',b:6:2);
writeln('c= ',c:6:2);
writeln('D=b*b-4*a*c=',d:6:2);
if (d>=0)
then begin
e:= (-b/(2*a));
f:= (sqrt(d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln('D>= 0, значит корни действительные: ');
writeln('x1= ',x1:6:2);
writeln('x2= ',x2:6:2);
end;
if(d<0) then begin
e:= (-b/(2*a));
f:= (sqrt(-d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln(' D<0, значит корни комплексные: ');
writeln('x1= ', e:6:2, ' + ', f:6:2, 'i');
writeln('x2= ', e:6:2, ' - ', f:6:2, 'i');
end;
end.

4) Сместиться на (-4; 4)

Объяснение:

Пусть чертежник изначально стоял в точке (x; y).

Выполняем алгоритм:

Сместиться на (-3; -6) - чертежник будет в точке (x-3; y-6)

Дальше идет цикл, выполняющийся три раза.

Пусть команда1 будет такой: Сместиться на (a; b).

Тогда за три проход цикла чертежник будет в точке  

(x-3+3(a+2+3); y-6+3(b-5+3))=(x+3a+12; y+3b-12)

И теперь ему надо вернуться в исходную точку, т.е в точку (x; y).

x=x+3a+12  ⇒ 3a=-12  ⇒ a= -4

y=y+3b-12  ⇒ 3b=12  ⇒ b=4

При a=-4 и b=4 чертежник из точки (x+3a+12; y+3b-12) попадет в точку (x; y).

ответ: 4) Сместиться на (-4; 4)