fork download
  1. program pontera;
  2. var n,f:integer;
  3. begin
  4. write('n=');readln(n);
  5. f:=n+n;
  6. writeln('f=',f);
  7. readln;
  8. end.
Success #stdin #stdout 0s 5328KB
stdin
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout
n=f=14