Сделайте задание по информатике пожалуйста!!!! 8 класс Создайте программу для вычисления дискриминанта на Паскале

Программа для вычисления дискриминанта на Pascal:

program DiscriminantCalculator;

var
  a, b, c, discriminant: real;

begin
  // Ввод коэффициентов квадратного уравнения
  writeln('Введите коэффициент a:');
  readln(a);
  
  writeln('Введите коэффициент b:');
  readln(b);
  
  writeln('Введите коэффициент c:');
  readln(c);
  
  // Вычисление дискриминанта
  discriminant := b * b - 4 * a * c;
  
  // Вывод результата
  writeln('Дискриминант равен: ', discriminant);
end.

Программа принимает на вход коэффициенты квадратного уравнения (a, b, c), вычисляет дискриминант по формуле D = b^2 - 4ac и выводит результат на экран.