ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА (продолжение)
Если требуется после THEN или ELSE применить более одного оператора, то применяются ОПЕРАТОРНЫЕ СКОБКИ BEGIN..END
Решение КВАДРАТНОГО УРАВНЕНИЯ 
Program Kwur; Uses crt;
var a,b,c,x1,x2,d: real;
Begin
ClrScr;
write('Введите коэффициенты a,b,c :'); readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('Нет корней.')
Else begin
if d=0 then begin
x1:=-b/(2*a);
x2:=x1
End
Else begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a)
end;
write(' x1=',x1:5:2,' x2=',x2:5:2)
end;
readkey;
End.
З А Д А Н И Я:
1. Решить следующие уравнения:
а) 3х² + 6х - 8 = 0
б) х² - 2х - 1 = 0
в) 5х² - 4х + 3 = 0
г) 4х² + 4х - 1 = 0
д) 5х² - 5х + 2 = 0
2. Вставить в программу комментарии:
а) полное название программы;
б) автор программы и дату составления программы.
3. Сделать так, чтобы результат выводился на чистом экране
с указанием значений коэффициентов.
