Даны два числа а, в. Если оба они отрицательны, то вычислить их произведение, в противном случае найти их сумму

program al;var  a,b:integer ;beginwriteln('a=');readln(a);writeln('b=');readln(b);if (a<0) and (b<0) then writeln(a*b) else writeln(a+b);readln;end.