Cod sursa(job #67788)

Utilizator adrianraduleaRadulea Adrian adrianradulea Data 25 iunie 2007 14:09:09
Problema Sarpe Scor 0
Compilator fpc Status done
Runda preONI 2007, Runda Finala, Clasa a 9-a si gimnaziu Marime 0.18 kb
Raporteaza aceasta sursa 
var f,g:text;
    c:char;
begin
assign(f,'sarpe.in'); reset(f);
assign(g,'sarpe.out'); rewrite(g);
while not eoln(f) do begin
  read(f,c);
  write(g,c);
end;
close(g);
end.