Question

составить программу устанавливающую одного ли знака два числа вводимые с клавиатуры

Answer 1

var a, b: real;
begin
     readln(a, b);
     if (((a > 0) and (b > 0)) or ((a < 0) and (b < 0)))
     then writeln('Yes')
     else writeln('No');
end.