Составьте алгоритм вычисления дискриминанта! пожалуйста

Uses crt;
procedure Disk(a,b,c:integer; var d:real);
begin
D:=b*b-4*a*c;
end;
var a,b,c:integer;
k:real;
begin
ClrScr;
Writeln (Vvedite koef. a,b,c);
Readln(a,b,c);
Disk(a,b,c,k);
Writeln(Disk ,k);
Readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.