program example2_12;
var
a:array[1..30]of string[30];
i,j,m:integer;
k:string[30];
begin
m:=0;
repeat
m:=m+1;
readln(a[m]);
until a[m]='end';
for i:=1 to m-2 do
for j:=i+1 to m-1 do
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k
end;
for i:=1 to m-1 do
writeln(a[i]);
end.
|
|
|
|
