ошибка в коде

[Pytnik]

Всём привет, скажите, где сдесь ошибка?

[ROMA2PVT]

В чём конкретно ошибка?А вас неучили что есть 3 варианта нахождения корней:
1.при D>0;
2.при D<0;
3.при D=0.

[Pytnik]

Честно говоря, меня информатике в школе вообще не учили. А вот текст ошибки : "Error 207: Invalid floating point operation"

[ROMA2PVT]

Это не информатика это математика.

[Pytnik]

И курсор, почемуто, указывает на ошибку в 7й строке

[ROMA2PVT]

var
a,b,c,x1,x2,d,kl,x:real;
y:integer;
begin
repeat
write('A=');
read(a);
write('B=');
read(b);
write('C=');
read(c);
D:=(b*b)-(4*a*c);
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('X1=',x1);
writeln('X2=',x2);
end
else
if D=0 then
begin
x:=(-b)/(2*a);
writeln('X:=',x);
end
else if D<0 then
begin
writeln('Вещественных корней нет!!!' );
end;
writeln('Задача решена? Если да, то напишите "1", иначе "2"');
read(y);
until(y=1);
end.

[Pytnik]

ROMA2PVT, Спасибо

[ROMA2PVT]

Вот код нормальный.А то это бред.Нужно учитывать все варианты.К томуже корень из отрицательного числа не вычисляется (точнее вычисляется но с мнимой единицей).

[Pytnik]

Ну не надо так грубо, яж только начинающий програмист)

И ещё 2е просьбы.
1. напишите плз код программы, которая выводит числа от 1 до N, где N - число указаное пользовтелем?
2. как сосчитать сколько символов содержит переменная?

[ROMA2PVT]

-I-

Uses
   CRT;
Var
 i,n:integer;
begin
  write('Введите N: ');
   readln(n);
    for i:=1 to n do
     begin
      write(i:2,' ');
     end;
  readkey;
end.