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

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.