Заданы числа a и b. Определить, эти числа одного или разных знаков — Pascal(Паскаль)

var
a,b:integer;
begin
 readln(a);
 readln(b);
 if a*b>0 then write('одного знака')
  else if a*b<0 then write('разного знака')
   else write('по крайней мере одно из чисел=0');
end.