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

C goto

GOTO

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