Напишите программу на языке Паскаль для нахождения дискриминанта D = b² – 4ac квадратного уравнения a*x² + b*x + c = 0 для конкретных значений коэффициентов a=3, b=5, c=2. Напишите строку вывода результата с комментарием.

pascal
program Discriminant;
var
  a, b, c, D: integer;
begin
  a := 3;
  b := 5;
  c := 2;
  D := b * b - 4 * a * c;
  writeln('Дискриминант квадратного уравнения равен: D = ', D);
end.

Вычисление:

Строка вывода результата с комментарием:

pascal
writeln('Дискриминант квадратного уравнения равен: D = ', D);

Результат работы программы:

Дискриминант квадратного уравнения равен: D = 1