Разработайте алгоритм для вычисления квадратного уравнения ах(в квадрате)+бх+с=0

Var a,b,c,d,x1,x2: real; begin writeln('введите коэффициенты уравнения через пробел'); read( a,b,c); d: =sqr(b)-4*a*c; if d< 0 then writeln( 'нет корней'); if d> 0  then begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); writeln(x1: 6: 2, x2: 6: 2); end else begin x1: =-b/(2*a); writeln(x1: 6: 2); end; readln; end;

Ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.ура, скоро конец четверти. нужно исправить оценки.

Vari, a, even, odd, min, max : integer; beginmin : = 30000; max : = -1; for i: = 1 to 5 do beginread(a); if (a mod 2 = 0) then even: = even + 1else begin odd: = odd + 1; if (a > max) max : = a; if (a < min) min : = a; end; end; writeln('четных ', even); writeln('нечетных', odd); if (odd = 0)then writeln('нечетных чисел нет'); else writeln('min =' min, ' max = ', max); end.что то такое, скорее всего есть синтаксические ошибки, т.к. пишу с телефона, надеюсь смысл поняли и сможете сами написать