Program untuk Menentukan Akar-akar Suatu Persamaan Kuadrat

var
a, b, c, deskri : integer;
begin
write(‘Masukkan koefisien a :  ‘); readln(a);
write(‘Masukkan koefisien b:  ‘); readln(b);
write(‘Masukkan koefisien c:  ‘); readln(c);
deskri:=b*b-4*a*c;
{
if deskri<0 then writeln(‘akarnya imajiner’)
                      else if deskri=0 then writeln(‘akarnya nyata kembar’)
                                                      else writeln(‘akarnya nyata beda’);
if deskri=0 then writeln(‘akarnya nyata kembar’)
                      else if deskri<0 then writeln(‘akarnya imajiner’)
                                                      else writeln(‘akarnya nyata beda’);
if deskri>0 then writeln(‘akarnya nyata beda’)
                      else if deskri=0 then writeln(‘akarnya nyata kembar’)
                                                      else writeln(‘akarnya imajiner’);
}
if deskri<>0 then if if deskri>0 then  writeln(‘akarnya nyata beda’)
                                                           else writeln(‘akarnya imajiner’)
                      else writeln(‘akarnya nyata kembar’);
readln;
end