Cod sursa(job #109321)

Utilizator bogd@nLocovei Bogdan bogd@n Data 25 noiembrie 2007 10:11:46
Problema Ordine Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 1, Clasele 5-8 Marime 0.21 kb
Raporteaza aceasta sursa 
Program caractere;
Var C:ARRAY['a'..'z'] of Char;
    i,n:Integer;
    fin,fout:text;
Begin
  Assign(fin,'ordine.in'); Reset(fin);
  Assign(fout,'ordine.out'); Rewrite(fout);
  For i:=1 To n Do
      Read(C[i]);