Заданы числа a и b. определите,эти числа одного или разных знаков.

Var a,b :integer;
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
while a>0 do
 Begin 
  if b>0 then
   writeln ('a и б одного знака');
  else 
  writeln ('a и б разного знака);
 end;
while a<0 do
 Begin 
  if b<0 then
   writeln ('a и б одного знака');
  else 
  writeln ('a и б разного знака);
end;
end.