fork download
  1. var k,n,x1,x2,x3,x4,x5,x6:integer;
  2. begin
  3. read(n);
  4. for x1:=0 to 9 do
  5. begin
  6. for x2:=0 to 9 do
  7. begin
  8. for x3:=0 to 9 do
  9. begin
  10. for x4:=0 to 9 do
  11. begin
  12. for x5:=0 to 9 do
  13. begin
  14. for x6:=0 to 9 do
  15. begin
  16. if (x1+x2+x3=x4+x5+x6) and (x1+x2+x3=n) then k:=k+1;
  17. end;
  18. end;
  19. end;
  20. end;
  21. end;
  22. end;
  23. writeln(k);
  24. end.
Success #stdin #stdout 0s 288KB
stdin
1
stdout
9