Cod sursa(job #365457)
| Utilizator |  catalin petre Loky |
Data | 18 noiembrie 2009 19:59:53 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
var nr,p,n,q:integer;
f,g:text;
begin
assign(f,'fractii.in');
reset(f);
assign(g,'fractii.out');
rewrite(g);
nr:=0;
readln(f,n);
close(f);
for p:= 1 to n do
for q:= 1 to n do
nr:= nr + 1;
writeln(nr);
close(g);
end.
