помогите по информатике. как создать программу дискриминанта

uses crt;
var a,b,c,D: real;
begin
clrscr;
writeln('Введите коэффициенты уравнения: ');
readln(a,b,c);
D:=b*b-4*a*c;
writeln('Дискриминант равен ', D);
readkey;
end.