Cod sursa(job #110313)

Utilizator vrvpVlad Veigang vrvp Data 26 noiembrie 2007 08:32:26
Problema Ordine Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var a:array[1..100] of longint;
n,i,j:longint;
x:char;
f,g:text;
begin
assign(f,'ordine.in');reset(f);
assign(g,'ordine.out');rewrite(g);
while not eof(f) do
  while not eoln(f) do begin
  read(f,x);
  a[ord(x)-96]:=a[ord(x)-96]+1;
end;
for i:=1 to 32 do
  for j:=1 to a[i] do
    write(g,chr(ord(i+96)));
close(g);
end.