Cod sursa(job #167229)

Utilizator tamas_iuliaTamas Iulia tamas_iulia Data 29 martie 2008 11:36:01
Problema Litere Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var a : array['a'..'z'] of integer;
    i,n,nr : longint;
    f,g : text;
    j,c : char;
begin
assign(f,'litere.in');reset(f);
assign(g,'litere.out');rewrite(g);
readln(f,n);
for i:=1 to n do
begin
  read(f,c);
    for j:=chr(ord(c)+1) to 'z' do
    nr:=nr+a[j];
  inc(a[c]);
end;
writeln(g,nr);
close(g);
end.