Составить программу вычисления дискриминанта квадратного уравнения при вводе значений его коэфициентов с клавиатуры

Var a, b, c: real;
begin
     readln(a, b, c);
     writeln(sqr(b) - 4 * a * c);
end.