Cod sursa(job #140255)

Utilizator hahahaha haha haha Data 21 februarie 2008 16:32:58
Problema Heavy metal Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
var fi,fo:text;
    i,n,s:longint;
begin
  assign(fi,'heavymetal.in'); reset(fi);
  assign(fo,'heavymetal.out'); rewrite(fo);
  read(fi,n);
  for i:=1 to 1000000000 do
    s:=s+1;
  writeln(fo);
  close(fi);
  close(fo);
end.