СРОЧНО... нужна программа для вычисления корней квадратного уравнения (Pascal)

Question

Нужна программа для вычисления корней квадратного уравнения (Pascal) с применением оператора либо IF либо GOTO

Anton Ivanov · Accepted Answer

program kv; 
var 
a,b,c,D,x1,x2:real; 
begin 
Read(a,b,c); 
D:=sqr(b)-4*a*c; 
if D<0 
then WriteLn('Действительных корней нет') 
else begin 
d:=sqrt(d); 
x1:=(-b+d)/(2*a); 
x2:=(-b-d)/(2*a); 
WriteLn('x1=',x1); 
WriteLn('x2=',x2); 
end; 
end.