Begin

writeln('Введите а');
readln(a);

writeln('Введите b ');
readln(b);

Writeln('Введите с');
readln(c);
d:=b*b-4*a*c;
clrscr;
If (d<0)then 
begin
write('Нет решений');
end;
If (d=0)then 
Begin
x:=b/(2*a);
clrscr;
write('Уравнение имеет единственный корень = ',x);

end;
If(d>0)then
 begin
     x1:=((-b)-sqrt(d))/(2*a);
     x2:=((-b)+sqrt(d))/(2*a);
     clrscr;
     writeln ('Первый корень=',x1);
     writeln ('Второй корень=',x2);
     end;
readln;
end.