program S6EX2;
uses wincrt;
type
	tab = array[1..30] of char;
var
n,j,k,l: integer;
TL, TC, TS,t : tab;
// NOMBRE DE CASES
procedure nbcase(var n : integer);
		begin
			repeat
				writeln('Donner la taille du tableau');
				readln(n);
        until (n in [6..30])    ;
    end;

// REMPLISSAGE DU TABLEAU T el loul
procedure remplissage ( n : integer; var t : tab);
	var i : integer;
Begin
		for i := 1 to n do
            Begin
	writeln('Donnez la valeur de l"element n ', i);
		readln(T[i]);
            end;
end;

//check
procedure check (n : integer;t : tab; var TL, TC, TS : tab; var j,k,l : integer);
var
i : integer;
begin
j:=0;
k:=0;
l:=0;
for i := 1 to n do
if upcase (t[i]) in ['A'..'Z'] then
begin
j:= j+1;
TL[j] := T[i];
end
else if t[i] in ['0'..'9'] then
begin
k := k+1;
TC[k] := t[i];
end
else begin
l := l +1;
ts[l] := t[i];
end;
end;
procedure affichage (var t : tab; var n : integer);
var i : integer;
begin
for i := 1 to n do
write(T[i], ' | ');
writeln;
end;

begin
nbcase(n);
remplissage(n,t);
check(n,t,TL,TC,TS , j , k ,l);
affichage(t,n);
affichage(TL, j);
affichage(TC, k);
affichage(TS, l);
end.