Program Eclater_tab;
Type
Tab = Array [1..50] of Integer;
Var T, TN, TP : Tab;
n, i, j, k : Integer;
Begin 
Repeat
Writeln ('Saisir un entier');
Readln (n);
Until (n>=10) and (n<=50);
Writeln (‘Saisir les ', n, ' éléments de T’);
For i:=1 To n Do
Readln (T[i]);
j := 0;
k := 0;
For i := 1 To n Do
If T[i] < 0 Then 
Begin
j := j+1;
TN[j] := T[i];
End
Else
Begin
k := k+1;
TP[k] := T[i];
End;
For i := 1 To j Do Write (TN[i]:4);
Writeln;
For i := 1 To k Do Write (TP[i]:4);
End.