Ввести 3 числа a b c вывести все пары чисел одного знака. Составить программу на Pascal

Предыдущий
вопрос Следующий
вопрос

program SignPairs;
var
a, b, c: Integer;
begin
writeln('Enter three numbers:');
readln(a, b, c);
writeln('Pairs of numbers with the same sign:');
if (a > 0) and (b > 0) then
writeln(a, ' ', b);
if (a > 0) and (c > 0) then
writeln(a, ' ', c);
if (b > 0) and (c > 0) then
writeln(b, ' ', c);
if (a < 0) and (b < 0) then
writeln(a, ' ', b);
if (a < 0) and (c < 0) then
writeln(a, ' ', c);
if (b < 0) and (c < 0) then
writeln(b, ' ', c);
end.

Эта программа получает от пользователя три числа и выводит все пары чисел с одним и тем же знаком.