информатика 8 класс. Помогите, пожалуйста нужно сделать тип var begin read if then и тд❤️

На блок схеме много ошибок было в формулах дискриминанта...

program D;var a,b,c,d: Integer; x, x1, x2: Real;begin Write('Ввод "a": '); ReadLn(a); Write('Ввод "b": '); ReadLn(b); Write('Ввод "c": '); ReadLn(c); d := b*b-4*a*c; if d < 0 then begin WriteLn('Корней нет'); end else begin if d = 0 then begin x := -b/2*a; WriteLn('Корень: ', x) end else begin x1 := (-b+sqrt(d))/(2*a); x2 := (-b-sqrt(d))/(2*a); WriteLn('X1 = ', x1); WriteLn('X2 = ', x2); end; end; end.