ПОМОГИТЕ СРОЧНО!!!!! PASCAL ABC!!!!
program kvadr;
var;a,b,c,D;read;
begin
writeln('ведите переменые a,b,c');
rideln(a,b,c);
D:b*b-4*a*c; if D>0 then writeln ('два корня');
else D=0 then writeln ('один корень');
else writeln('нет корней');
end.

program wwtrtrert;

var a, b, c, D: integer;

begin

writeln('ведите переменые a,b,c');

readln(a,b,c);

D := b * b - 4 * a * c;  

if D > 0

then writeln('Два корня')

else

 if D = 0

   then writeln ('один корень')

   else writeln('нет корней');

end.

Рефакторинг.