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

[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????????

[SlimShady]

Program yravnenie;
uses crt;
var a,b,c,d,X1,X2:integer;
Begin
ClrScr;
WriteLn('Введите первое число');
readLn(a);
WriteLn('Введите второе число');
readLn(В);
WriteLn('Введите третье число');
readLn(С);
d:=(b*2)-(4*a*c);
writeln('Итого ',d,'');
if d<0 then writeln('Нет решений')
Else 
 begin  X1 = (-b + sqrt(D)) / (2*A)
           X2 = (-b - sqrt(D)) / (2*A)
Writeln('Первый корень -',X1,'   Второй корень ',X2,'');
end;
readln;
repeat until keypressed;
end.

Где ошибка???
Пишет:
Error 26: Type mismatch.

Сообщение отредактировано: SlimShady - 11.05.2005 19:18