fork download
  1. program wunderbaum;
  2.  
  3. var
  4. L, N, ans, multre, multdue, multsei : LongInt;
  5.  
  6. begin
  7. {
  8.   uncomment the two following lines if you want to read/write from files
  9.   assign(input, 'input.txt'); reset(input);
  10.   assign(output, 'output.txt'); rewrite(output);
  11. }
  12.  
  13. ReadLn(L, N);
  14.  
  15. ans := 0;
  16. multre:=N div 3;
  17. multdue:= N div 2;
  18. multsei:= N div 6;
  19. ans:= 3*multre + (multdue-multsei)*2 + (N-multre-multdue+multsei);
  20. ans:=ans+L;
  21.  
  22. WriteLn(ans);
  23.  
  24. end.
  25.  
Success #stdin #stdout 0.01s 5288KB
stdin
10 6 
stdout
22