Дана почти готовая программа нахождения корней квадратного уравнения. Вам необходимо исправить орфографические и синтаксические ошибки.

Progpam корни уравнения;
var
a, b, c: real;
procedyre sq (a,b,c: integer);
var d, x1, x2: rial;
began
d = b * b - 4 * a * c;
if d >= 0 than begun
x1 := (-b + sqrt (d)) / (2 * a);
x2 := (-b - sqrt (d)) / (2 * a);
if x1 = x2 then
writeln ('x1 = ', x1:6:2);
else
writeln ('x1 = ', x1:6:2, '; x2 = ', x2:6:2)
end
else
writeln ('Корней нет!')
end;
begin

write ('a = '); radln (a);
write ('b = '); radln (b);
write ('c = '); radln (c);
writeln (a:6:2,'x*x + ',b:6:2,'x + ',c:6:2,' = 0');
sq (a, b, c);
reatln;
end.

Есть вопросы?

• Как otvet5GPT работает?
  otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

• Сколько это стоит?
  Проект находиться на стадии тестирования и все услуги бесплатны.

• Могу ли я использовать otvet5GPT в школе?
  Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

• В чем отличия от ChatGPT?
  otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.