Cod sursa(job #233938)
Utilizator | Data | 19 decembrie 2008 18:45:22 | |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.09 kb |
var
i, a, n : longint;
begin
n := 10000000;
for i := 1 to n do
a := 7;
end.