Cod sursa(job #17458)

Utilizator h_istvanHevele Istvan h_istvan Data 15 februarie 2007 21:54:54
Problema Text Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.18 kb
Raporteaza aceasta sursa 
program text1;
const betu : set of char = ['a'..'z','A'..'Z'];
var c:char;
    n,h:longint;
    f:text;

begin
     assign(f,'text.in');
     reset(f);

     close(f);
end.