Алгоритм выводящий на экран дискриминант квадратного уравнения

Var a,b,c,d:real;
begin
writeln('Введите коэффициенты уравнения через пробел');
read(a,b,c);
d:=sqr(b)-4*a*c;
writeln('Дискриминант = ',d:6:2);
readln;
end.
Алгоритм можете составить сами исходя из программы. (Всего лишь замена служебных слов)