Pascal 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.

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