Program 'Решение квадратных уравнений (2 версия)';
var a, b, c: integer;
var x, x1, x2: real;
var d, d1, k: integer;
begin
writeln ('Введите коэффициенты- а, в, с');
readln (a, b, c);
if mod b=0 then;
begin;
k:=b/2;
d1:=k*k-a*c;
if d1<0 then;
begin;
writeln ('Корней нет');
end;
if d1=0 then;
begin;
x:=-k/a;
writeln ('Единственный корень уравнения:');
writeln ('x= ', x:4:2);
end;
if d1>0 ;
then;
begin;
x1:=(-k+sqrt(d1))/2/a;
x2:=(-k-sqrt(d1))/2/a;
writeln ('Корни уравнения:');
writeln ('х1= ', x1:4:2);
writeln ('х2= ', x2:4:2);
end;
if mod b<>0 then;
begin;
d:=b*b-4*a*c;
if d<0 then;
begin;
writeln ('Корней нет');
end;
if d=0 then;
begin;
x:=-b/2/a;
writeln ('Единственный корень уравнения:');
writeln ('х= ', x:4:2);
end;
if d>0 then;
begin;
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
writeln ('Корни уравнения: ');
writeln ('x1= ', x1:4:2);
writeln ('x2= ', x2:4:2);
end;
end.
не могу понять что такое все перерыл не нашел
