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

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