ответ описал в объяснении
Объяснение:
var a,b,c: real; //Объявление переменных a,b,c типа real(вещественный)
x1,x2,D: real; //Объявление переменных x1,x2,D типа real(вещественный)
begin //Начало программы, ее тело
readln(a,b,c); //Ввод с клавиатуры значений a,b,c
D := b*b - 4*a*c; //Формула вычисления дискриминанта
if D<0 then //Оператор если, в данном случае "ЕСЛИ ДИСКРИМИНАНТ МЕНЬШЕ НУЛЯ,ТО "
writeln('Корней нет') //Выполнение условия ЕСЛИ, вывод текста "Корней нет"
else if D=0 then begin // Условие ИНАЧЕ ЕСЛИ, проверка дискриминанта на принадлежность к нулю
x1 := -b/2/a; //Выполнение условия ИНАЧЕ ЕСЛИ, нахождение х1
writeln('x1=x2=',x1); //вывод корней
end //Окончание предыдущего блока begin
else begin //Условие ИНАЧЕ
x1 := (-b-sqrt(D))/2/a; //нахождение первого корня
x2 := (-b+sqrt(D))/2/a; //нахождение второго корня
writeln('x1=',x1,' x2=',x2); // вывод корней уравнения
end; //Окончание предыдущего блока begin
end. //Окончание программы
эм, такой странный вопрос, откуда я знаю твоих родственников