Cod sursa(job #120999)
Utilizator | Data | 7 ianuarie 2008 16:20:38 | |
---|---|---|---|
Problema | Economie | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.14 kb |
var i,p,q:integer;
g:text;
begin
assign(g,'economie.out');
rewrite(g);
q:=10;
p:=2;
for i:=q to p do
write(g,2);
close(g);
end.