program Uravnenie;

var a, b, c: integer;
var D:real;

begin
    write('Введите A: ');
    read(a);
    write('Введите B: ');
    read(b);
    write('Введите C: ');
    read(c);

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

    if D > 0 then
    write('Уравнение имеет 2 решения')
    else begin
    if D = 0 then write('Уравнение имеет 1 решение')
    else write('Уравнение не имеет решений');
    end;
end.