Информатика

Толяха

4 марта, 16:36

Где здесь ошибка

program n_11;

var a, b, c:Real;

var d:Real;

var x, x1, x2:Real;

begin

WriteLn ('Расширение квадратного уровнения') ;

Write ('Введите коофиценты a, b, c >>') ;

ReadLn (a, b, c,) ;

d:=b*b-4*a*c;

if d<0 then WriteLn ('Корней нет')

else

if d=0 then

begin

x:=-b/2/a;

WriteLn ('Корнень уровненияx=', x:9:3)

end

else

begin

x1: = (-b+sqrt (d)) / 2/a;

x2: = (-b+sqrt (d)) / 2/a;

WriteLn ('Корни уровнения:') ;

writeln (x1=', x1:9:3) ;

WriteLn (x2=', x2:9:3)

end

end.