Будте добры написать программу на паскале. условие: надо написать программу, которая решает квадратное уравнение. (используя goto)

var
a,b,c,x1,x2,d:real;
begin
write('Введите A='); readln(a);
write('Введите B='); readln(b);
write('Введите C='); readln(c);
D:=b*b-4*a*c;
if D<0 then begin
writeln('Нет корней');
end;
if D=0 then begin
writeln('x1=',-b/(2*a))
end;
if D>0 then begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('x1=',x1);
writeln('x2=',x2);
end;
end.

uses crt;

var i,sum,k: integer;

begin

      sum: =0;

      k: =0;

      writeln('вводите числа. 0 - конец последовательности');

      repeat

          read(i);

          if i mod 2=1 then begin

              sum: =sum+i;

              inc(k);

          end;

      until i=0;

      writeln;

      writeln('среднее  арифметическое нечетных чисел: ',sum/k: 5: 3);

end.

например, ввод дополнительной переменной output, которая равна true, если вывод числа (чисел) не был осуществлён и необходимо вывести "123", иначе (если вывод уже был) - false

Объяснение:

int main()

{

setlocale(LC_ALL, "Rus");

double a, b, c, l, k;

bool output = true;

cout << "Введите l: ";

cin >> l;

cout << "Введите k: ";

cin >> k;

a = (l - 2 * k) / l;

b = (l + k) / 5;

c = l * k - 3.5;

if (a >= -5 && a <= 8)

{

cout << "a = " << a << endl;

output = false;

}

if (b >= -5 && b <= 8)

{

cout << "b = " << b << endl;

output = false;

}

if (c >= -5 && c <= 8)

{

cout << "c = " << c << endl;

output = false;

}

if (output)

{

cout << "123" << endl;

}

}