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

Var a, b, c, d:real;

begin

writeln ('Введите коэффициенты уравнения через пробел') ;

read (a, b, c) ;

d:=sqr (b) - 4*a*c;

writeln ('Дискриминант = ', d:6:2) ;

readln;

end.

Алгоритм можете составить сами исходя из программы. (Всего лишь замена служебных слов)