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

1)uses crt;
var a,b:integer;
begin
readln(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) какой именно коэффициент?