Объяснение:
program Kvadratnoe;
var a,b,c,d,x,y1,y2: real;
begin
writeln(' Решение квадратного уравнения ');
write(' Введите а = ');
readln(a);
write(' Введите b = ');
readln(b);
write(' Введите c = ');
readln(c);
d:=SQR(b)-4*a*c; //находим дискриминант
writeln(' d = ',d);
//Проверка значения дискриминанта
if d=0 then
begin
x:=-b/2*a;
writeln(' Х = ',x);
end
else
if d>0 then
begin
y1:=(-b-SQRT(d))/2*a;
y2:=(-b+SQRT(d))/2*a;
writeln(' Х1 = ',y1,' X2 = ',y2);
end
else writeln(' Нет корней ');
end.
см приложения