uses wincrt;
var
a,b,c,d : integer;
x1,x2 : real;
begin
clrscr;
writeln (' Mencari Akar Persamaan Kuadrat');
writeln (' ');
writeln (' ');
writeln ('Bentuk Persamaan Kuadrat :
ax^2+bx+c=0');
write ('Masukkan Nilai a = ') ;readln (a);
write ('Masukkan Nilai b = ') ;readln (b);
write ('Masukkan Nilai c = ') ;readln (c);