Program Ranger_tab;
Type
Tab = Array [1..10] of Integer;
Var T, R : Tab;
i, j : Integer;
Begin
Writeln('Saisir les 10 éléments de T');
For i:=1 To 10 Do 
Readln(T[i]);
j:=0;
For i := 1 To 10 Do 
If T[i] >= 0 Then 
Begin
j := j+1;
R[j] := T[i];
End;
For i := 1 To 10 Do 
IF T[i] < 0 Then 
Begin 
j := j+1;
R[j] := T[i];
End;
For i := 1 To 10 Do
Write(T[i]:4);
Writeln;
For i := 1 To 10 Do
Write(R[i]:4);
End.