Нахождение корней, квадратного уравнения Опции

[SlimShady]

Составить программу вычисления корней квадратного уравнения вида a x 2 + b x + c = 0

Последовательность действий:
1. Описать переменные a, b, c, d, x1,x2 как REAL.
2. Задать с клавиатуры коэффициенты a, b, c.
3. Вычислить значение дискриминанта d = b 2 – 4 a c
4. Вывести значение дискриминанта на экран
5. Проверить значение дискриминанта:
• Если дискриминант меньше нуля, то нет решения
• Если дискриминант больше или равен нулю, то вычислить
значения x1 и x2

как вычислить значение x1 и x2????????

[klem4]

ошибки в синтаксисе.

var
   a,b,c,d{,x1,x2}:extended;

Begin
   write('a=');readln(a);
   write('b=');readln(b);
   write('c=');readln( c );

   d:=sqr(b)-4*a*c;

   if d<0 then
    writeln('Reshenii net')
     else
      if d=0 then
       writeln('x=',-b/(2*a):2 :3)
        else
         begin
            writeln('x1=',(-b+sqrt(d))/(2*a):2 :3);{x1:=(-b+sqrt(d))/(2*a)}
            writeln('x2=',(-b-sqrt(d))/(2*a):2 :3);{x2:=(-b-sqrt(d))/(2*a)}
         end;
    readln;
end.