program ex;
uses wincrt;
type
tab = array [1..100] of string ;
tabb = array [1..100] of integer ;

var
t: tab ;
t2:tabb ;
ch1 : char ;
n:  integer;
echange : boolean ;
procedure inerdit ( var ch1:char);
begin
repeat
writeln('donner les alpha interdit');
readln(ch1);
until ch1 in ['a'..'z'] ;
end;
procedure saisir (var n: integer );
begin
repeat

  writeln('donner les nombre de case');
  readln(n);

until n in [10..99] ;
end;
procedure remplir (var t: tab ; n : integer );
var i : integer ;
begin
for i:=1 to n do
repeat
writeln('donner t[',i,']');
readln(t[i])
until t[i] in [a..z]  ;

end;
procedure remplir2 (var   t2:tabb , n : integer , ch1 : char )   ;
var i,i,a,b:integer ;
begin
a:= 0 ;
b:= 0 ;
for i:=1 to n do
begin
  for j := 1 to length (t[i]) do
	if ch1 in t[i][j] then
	a:= a + 1 ;
b:= length (t[i]) - a ;
t2[i]:= b*2 - a*5 ;
end;
end;
procedure tanthim  ( var t2 : tabb , n : integer );
var i,x:integer ;
begin
repeat
echange := false ;
for i:= 1 to n-1 do
begin
if t2[i] > t[i+1] then
x := t[i] ;
t[i] := t[i+1] ;
t[i+1] := x ;
echange := true ;
end;
n:= n-1 ;
until echange = false;
end ;
procedure afieche(var t : tab , n : integer );
var i: integer ;
begin
for i:=1 to n do
writeln (t[1],'/',t[2],'/',t[3]);
end;
      {p.p}
begin
procedure interdit ( ch1) ;
procedure saisir (n);
procedure remplir (t,n);
procedure remplir2 ( t2 , n , ch1);
procedure tenthim ( t2 , n );
procedure affieche( t , n );
end.