Составить программу, выводящую количество корней квадратного уравнения

Var

a, b, c:integer;

q:real;

Begin

Writeln ('a*x^2+b*x+c') ;

Write ('Введите A: ') ; readln (a) ;

Write ('Введите B: ') ; readln (b) ;

Write ('Введите C: ') ; readln (c) ;

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

if q>0 then writeln ('2 корня') ;

if q=0 then writeln ('1 корень') ;

if q<0 then writeln ('0 корней') ;

End.

Var a, b, c:integer; q:real; beginwriteln ('a*x^2+b*x+c') ; writeln ('vvedite a') ; readln (a) ; writeln ('vvedite b') ; readln (b) ; writeln ('vvedite C') ; readln (c) ; q:=b*b-4*a*c; If q>0 then writeln (2) ; If q=0 then writeln (1) ; If q<0 then writeln (0) ; end.