немесе Pascal программасына мынаны жазып шығаруға болады
program Deskriminant;
var
a, b, c: integer; D: real;
begin
write('а-ны енгіз-');
readln(a);
write('b-ны енгіз-');
readln(b);
write('c-ны енгіз-');
readln(c);
write('Дескриминат=');
writeln(sqr(b) - (4 * a * c));
D := sqrt(sqr(b) - (4 * a * c));
if (D > 0) Then
begin
writeln('екі түбірі бар');
Write('X1='); //Егер Дискриминат > 0-ден
writeln((-b - D) / (2 * a));
Write('X2=');
writeln((-b + D) / (2 * a));
end;
if(D = 0) then
begin
writeln('бір түбірі бар'); //Егер дискриминат = 0-ге болса
write(' X1,2=');
write((-b - D) / (2 * a));
end;
if (D < 0) then //Егер дискриминан кіші 0-ден болса
begin
writeln('Түбірі жоқ');
end;
end.