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

1)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) or ((aif ((a>0) and (b0)) then writeln(Имеют разные знаки);
if (a=0) or (b=0) then writeln(Некорректно);
end.

2) какой именно коэффициент?