Algoritmo para ler os coeficiente de uma equação do segundo grau e escrever o valor do seu Delta.

// Faça um algoritmo para ler os coeficiente de uma equação do segundo grau e escrever o valor do seu Delta.

program equacao_do_grau;

var a,b,c,delta:real;

begin

writeln('informe o valor de a,b e c:');

readln(a,b,c);

delta:=(b*b-4*a*c);

writeln('O delta e:', delta );

readln;

end.