Даны два числа, не равных нулю. Определить, имеют ли эти числа одинаковые знаки.

Free Pascal

вариант такой: представим числа как строку и будем смотреть вхождение каждого символа во второе число(строку).

var