ПОМОГИТЕ Безотлагательно!!!!! PASCAL ABC!!!!program kvadr;var;a,b,c,D;read;beginwriteln(039;ведите

ПОМОГИТЕ Безотлагательно!!!!! 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 Dgt;0 then writeln ('два корня');
else D=0 then writeln ('один корень');
else writeln('нет корней');
end.