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

Var A,B,C:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if ((A<0)and(B<0))or((A>0)and(B>0)) then WriteLn(A,' ',B);
if ((A<0)and(C<0))or((A>0)and(C>0)) then WriteLn(A,' ',C);
if ((B<0)and(C<0))or((B>0)and(C>0)) then WriteLn(B,' ',C);
End.