Срочно!!!!

  1.напиши класс, который принимает с клавиатуры 2 целых числа и,если оба имеют одинаковый знак,то выводят соответственное сообщение,а если разный знак-разные знаки. если хотя бы одно из чисел равно нулю,выводят сообщение некорректно. 2.напиши класс,который принимает с клавиатуры коэффициент квадратного уравнения a,b,c и находят его корни или выдает сообщение-действительных корней нет.

 

1)uses crt;var a,b:integer;beginreadln(a);readln(b);if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('Имеют одинаковые знаки');if ((a>0) and (b<0)) or ((a<0) and (b>0)) then writeln('Имеют разные знаки');if (a=0) or (b=0) then writeln('Некорректно');end.2) какой именно коэффициент?