Cod sursa(job #561337)
| Utilizator |  marin alexandru originalalex |
Data | 19 martie 2011 20:37:02 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
program fractii1;
var n,i,p,j:byte;
f1,f2:text;
begin
assign(f1,'fractii.in');
reset(f1);
read(f1,n);
close(f1);
assign(f2,'fractii.out');
rewrite(f2);
p:=0;
for i:=1 to n do
for j:=1 to n do
p:=p+1;
p:=p-n+1;
write(f2,p);
close(f2);
end.