Program Pascal untuk Mencari Akar Persamaan Kuadrat

Program persamaan_kuadrat;
Uses wincrt;
var
a,b,c,D,x1,x2:real;
begin
writeln('Program Persamaan Kuadrat');
write('Ketikkan nilai a: ');readln(a);
write('Ketikkan nilai b: ');readln(b);
write('Ketikkan nilai c: ');readln(c);
D:=(b*b)-(4*a*c);
writeln('D=',D:5:2);
if D<0 then
begin
writeln('D<0');
writeln('x1 dan x2 tidak real atau imajiner');
end
else if D=0 then
begin
writeln('D=0');
writeln('x1 dan x2 real dan sama');
x1:=(-b+(sqrt(D)))/(2*a);
x2:=(-b-(sqrt(D)))/(2*a);
writeln('x1=',x1:5:2);
writeln('x2=',x2:5:2);
end
else if D>0 then
begin
writeln('D>0');
writeln('x1 dan x2 real dan berlainan');
x1:=(-b+(sqrt(D)))/(2*a);
x2:=(-b-(sqrt(D)))/(2*a);
writeln('x1=',x1:5:2);
writeln('x2=',x2:5:2);
end;
end.