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

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.