Cod sursa(job #120384)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 5 ianuarie 2008 12:35:42
Problema Litere Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program alex;
var f:text;
    n,i,s:longint;
    a,j:char;
    c:array['a'..'z']of integer;
begin
assign(f,'litere.in');
reset(f);
readln(f,n);
for i:=1 to n do
    begin
    read(f,a);
    c[a]:=c[a]+1;
    for j:=chr(ord(a)+1) to 'z' do
        s:=s+c[j];
    end;
close(f);
assign(f,'litere.out');rewrite(f);
write(f,s);
close(f);
end.