Помогите Написать программу (на Pascal) для решения квадратного уравнения.

program kvad;
uses crt;
var a,b,c:real;
x1,x2:real;
d:real;
begin
clrscr;
writeln('решение квадратного уравнения');
write('a,b,c;');
d:=b*b-4*a*c;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1,x2');
end;
if d=0 then
begin
x1:=-b/(2*a);
writeln('x1');
end;
if d<0 then
writeln('kornei net');
readln;
end.

программа работает, и даже с очисткой экрана))))

Приступай к написанию.
Столкнешься с трудностями - вот тогда поможем.

"Песни о Паскале" - программирование для школьников и начинающих.
Погуглите в паутине, скачивается бесплатно.

Var a,b,c,d,x,x1,x2 : real;
Begin
Writeln (‘введите коэффициенты квадратного уравнения: ’);
Write(‘a=‘); readln (a);
Write(‘b=‘); readln (b);
Write(‘c=‘); readln (c);
If a=0
Then
If b=0
Then
If c = 0
Then writeln (‘любое x - решение’)
Else writeln (‘нет решений’)
Else
Begin
X:=-c/b;
Writeln(‘x=‘, x)
End
Else
Begin
D:=b*b-4*a*c;
If d<0
Then writeln (‘нет вещественных корней’)
Else
Begin
X1:=(-b+sqrt(d))/2/a;
X2:=(-b-sqrt(d))/2/a;
Writeln (‘x1=‘, x1);
Writeln (‘x2=‘, x2)
End
End
End

сразу несколько уравнений можно решить
program kv5;
uses crt;
var a,b,c:real;
discr:real;
x1,x2:real;
test,ntest:integer;
Begin clrscr;
write('vvedite kolichestvo testov');
readln(ntest);
for test:=1 to ntest do
begin
write('Test ',test,'.Vvedite koefficienti a,b,c: ');
readln(a,b,c);
if (a=0) and (b=0) and (c=0) then
begin write('vse koefficienti ravni 0');
writeln('x-lyuboe chislo')
end
else
if (a=0) and (b<>0)
then writeln('Lineinoe uravnenie.Odin koren: x=',(-c/b):6:2)
else if (a=0) and (b=0) and (c<>0)
then writeln('nepravilnoe uravnenie')
else
begin
discr:=b*b-4*a*c;
if discr > 0
then begin
x1:=(-b+sqrt(discr))/(2*a);
x2:=(-b-sqrt(discr))/(2*a);
writeln('x1=',x1:6:2, ';x2=' ,x2:6:2)
end
else
if discr=0
then begin
x1:=-b/(2*a);
writeln('Korni ravni: x1=',x1:6:2,' x2 = ',x1:6:2)
end
else writeln('deistvitelnih kornei net');
end;
writeln
end;
readln
END.

Program p23;
var
d,c,b,a:integer;
x1,x2:real
;
begin
writeln('Введите первый коефицыент');
readln(a);
writeln('Введите второй коефицыент');
readln(b);
writeln('Введите третий коефицыент');
readln(c);
d:=(b*b)-(4*a*c);
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('Первый корень квадратного уравнения',x1);
writeln('Второй корень квадратного уравнения',x2);
end.

var a,b,c: real;
x1,x2,D: real;
begin
Write('a=');
readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
D := b*b - 4*a*c;
if D<0 then
writeln('Корней нет')
else if D=0 then begin
x1 := -b/2/a;
writeln('x1=x2=',x1);
end
else begin
x1 := (-b-sqrt(D))/2/a;
x2 := (-b+sqrt(D))/2/a;
writeln('x1=',x1,' x2=',x2);
end;
end.

НЕА