квадратное уравнение с if, goto...

[желающий знать]

Здравствуйте! Я приехал из деревни Новоникольск Уссурийского района Приморского края.
К сожалению, нас практически не учили информатике, и я знаю только некоторые ключевые слова(end, begin, write) иарифметические функции.
Сейчас я учусь в 9 классе, а информатика на высоком, по-моему, уровне.
Помогите, пожалуйста!
Задали составить программу в Паскале ax2-bx+c=0. написать и отладить.
вот то, что дали на уроке:

program kvadrat1
var:a,b,c,d,x1,x2:real;
label L;
begin
write(a,b,c);
d:=b*b-4*a*c);
if d<0 then
Begin
write('мнимые величины')
gotoL
end
x1:=(-b+sqrt(d)/(2*a);
x2:=(-b-sqrt(d)/(2*a);
write(x1;x2);
L:   
end.

это сказали дополнить так, чтобы при любых a b c программа не выдавала ошибку. Cкорее всего надо рассмотреть условие,когда a=0.
Разумеется, в записи присутствуют помарки из-за моей программной безграмотности.
Что писать в метке "L:".
ПОМОГИТЕ, ПОЖАЛУЙСТА!!! ОЧЕНЬ НАДО!
Желательно с пояснениями, а то я ничего не пойму.

[ByAlex]

Сообщение от желающий знать

Здравствуйте! Я приехал из деревни Новоникольск Уссурийского района Приморского края.
К сожалению, нас практически не учили информатике, и я знаю только некоторые ключевые слова(end, begin, write) иарифметические функции.
Сейчас я учусь в 9 классе, а информатика на высоком, по-моему, уровне.
Помогите, пожалуйста!

Вот так, я думаю!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,b,c,d,x1,x2:Real;
  label L;
begin
  Writeln('Vvedite a');
  read(a);
  Writeln('Vvedite b');
  read(b);
  Writeln('Vvedite c');
  read(c);
  d:=b*b-4*a*c;
  if d<0 then
  Begin
    write('mnimie edinici');
    goto L;
  end
  else
  if d>0 then
  begin
    x1:=(-b+sqrt(d))/(2*a);
    x2:=(-b-sqrt(d))/(2*a);
    write('x1=',x1:0:2,' x2=',x2:0:2);
  end
  else
  if d=0 then
  begin
    x1:=(-b+sqrt(d))/(2*a);
    write('Uravnenie imeet 1 koren = ',x1)
  end;
  L:
    readln;
    readln;
end.

[желающий знать]

Спасибо большое, ByAlex.Выручил!!!

[Camaro Chevelle]

а если корни комплексные их чё не надо что ли выводить? и при d=1 2 корня, а не 1. вообще квадратные уравнения всегда 2 корня имеют. и зачем goto L я вообще не понял, т. к. если d<0, то все команды, лежащие после else и так не выполнятся, смысл в goto нулевой

[ByAlex]

Сообщение от Camaro Chevelle

а если корни комплексные их чё не надо что ли выводить? и при d=1 2 корня, а не 1. вообще квадратные уравнения всегда 2 корня имеют. и зачем goto L я вообще не понял, т. к. если d<0, то все команды, лежащие после else и так не выполнятся, смысл в goto нулевой

Дак я тоже так же подумал! Раз уж у него там метки были - решил оставить!