Cod sursa(job #233949)

Utilizator juniorOvidiu Rosca junior Data 19 decembrie 2008 18:53:13
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.13 kb
Raporteaza aceasta sursa 
var
  i, a, n : longint;
begin
  n := 1000000000;
  i := 1;
  while i <= n do
    begin
      a := 7;
      inc(i);
    end
end.