Microsoft Word Лаб практ инф

Программа на языке Паскаль, реализующая этот алгоритм
Текст в фигурных скобках – это комментарий, его можно не набирать. 
Program KwUr;
{Имя программы} 
Uses crt; 
{Использование библиотечного модуля CRT} 
Var a,b,c,d,w,z,x1,x2:Real; {Объявление переменных} 
2
1
, x
x
a
d
w
2

o
d 
c
b
a ,
,
ac
b
d
4
2


jw
z
x


1
jw
z
x


2
w
z
x


1
2
1
, x
x
Нет 
Да 
w
z
x


2

---

73
otvet:Char; 
Begin  
{Начало основного блока программы} 
Clrscr; 
{Очистка экрана} 
Writeln(‘ Программа вычисления корней уравнения a*x^2 + b*x +c = 
0’); 
Repeat 
{Начало итерационного цикла с постусловием} 
Write(‘Введите значение a=’); ReadLn(a); {Ввод коэффициента а} 
If a=0 Then Writeln(‘Уравнение не квадратное’) Else 
Begin
Write(‘Введите значение b=’);ReadLn(b); 
Write(‘Введите значение c=’);ReadLn(c); 
d:= b*b-4*a*c; 
z:=-b/(2*a); 
w:=sqrt(abs(d))/(2*a); 
Writeln(‘При а= ’,a:5:2,’ b= ’,b:5:2,’ c= ’,c:5:2); 
If d<0 Then 
 
Begin 
 
 
Writeln(‘x1= ‘,z:6:3,’+j*’,w:5:3); 
 
 
Writeln(‘x2= ‘,z:6:3,’-j*’,w:5:3);