Напишите программу на языке программирования Паскаль, . которая вычисляет дискриминант квадратного уравнения

var a,b,c:real; begin write('a b c ? '); readln(a,b,c); writeln(b*b-4*a*c:0:7); readln end.

Как то так. Но может неправильно)

Program p23;
var
a,b,c,d:integer;
x1,x2:real;
begin
readln(a);
readln(b);
readln(c);
d:=(b*b)+(-4*a*c);
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(x1);
writeln(x2);
end.

program F_son;

var a:real;
var b:real;
var c:real;
var d:real;
var x:real;
var x1:real;
var x2:real;

begin

writeln('program that is count of the discriminant');
writeln ('enter of a var ');
readln (a);
writeln ('enter of b var ');
readln (b);
writeln ('enter of c var ');
readln (c);
write ('discriminant equal = ');
d:= b*b - 4 * a * c;
writeln (d);

x:= -b / 2 * a;
x1:= (-b - sqrt(d)) / (2 * a);
x2:= (-b + sqrt(d)) / (2 * a);

if (d < 0) then
begin
write ('Discriminant aint got no sqrt');
end;
if (d = 0) then
begin
write ('Discriminant got one sqrt = ');
write (x);
end;
if (d > 0) then
begin
writeln ('Discriminant got two sqrt_s ');
writeln ('First sqrt equal = ', x1);
writeln ('Second sqrt equal = ', x2);
end;
end.

Для вычисления корней (удивите учителя) :)))
Program Z1;
var a, b, c, x, x1, x2, d, y: real;
BEGIN
readln(a, b, c);
d:=(b*b)-(4*a*c);
if d>0
then begin
x1:=(-b+SQRt(d))/(2*a);
x2:=(-b-SQRt(d))/(2*a)
end;
if d=0
then x:=0;
if d<0
then x:=y;
writeln (x, x1, x2)
END.

дискрименант на делфи программирование помогите пожалуйста
?