Напишите программу которая вычисляет дискриминант квадратного уровня. +блок-схема

Question

Напишите программу которая вычисляет дискриминант квадратного уровня. +блок-схема

Answer 1

var a,b,c:real; begin write('a b c ? '); readln(a,b,c); writeln(b*b-4*a*c:0:7); readln end.

---