PERSAMAAN KUADRAT PADA TPW

PERSAMAAN KUADRAT PADA TPW
Program PersamaanKuadrat;

Uses wincrt;

Var 
         a, b, c, x, nilai: Real;Begin
write ('Masukan nilai a:');
read(a);

write ('Masukan nilai b:');
read(b);

write('Masukan nilai c:');
read(c);

write('Masukan nilai x:');
read(x);

nilai:=a*x*x+b*x+c;
writeln ('Hasil Persamaan Kuadrat axx+bx+c:'nilai:5:2);

End.