Cod sursa(job #109479)

Utilizator Tase_CCapalna Tanase Tase_C Data 25 noiembrie 2007 11:19:14
Problema Ordine Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 1, Clasele 5-8 Marime 0.28 kb
Raporteaza aceasta sursa 
var r,s:ansistring;
    i,j,k,n:longint;
begin
readln(s);n:=length(s);
 for i:=97 to 122 do
  for j:=0 to n-1 do begin
   if i=ord(s[j]) then begin
    inc(k);
    r[k]:=chr(ord(i));
    write(ord(s[j]),' ',r[k]);readln;
   end;
  end;
  for i:=1 to k do write(r[i]);
end.